' Read a file's contents.
    Public Function GetFileContents(ByVal file_name As String) As String
        Dim stream_reader As New IO.StreamReader(file_name)
        Dim contents As String = stream_reader.ReadToEnd()
        stream_reader.Close()
        GetFileContents = contents
    End Function

Salzburger