Dim oDialog As OpenFileDialog = New OpenFileDialog
        Dim oDaten As String = String.Empty
 
        With oDialog
            .AddExtension = False
            .CheckFileExists = True
            .FileName = "Personal"
            .InitialDirectory = "E:\Programmieren\Visual Studio..."  ' Pfad zur 
            ' Datei
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Using oReader As StreamReader = New StreamReader(.FileName, _
                  System.Text.Encoding.Default)
                    oDaten = oReader.ReadToEnd
                    oReader.Close()
                End Using
            End If
        End With
        oDialog.Dispose()

Hänk

(Wer früh aufsteht hat mehr vom Tag)