Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
 
        Dim MeineDatei As String
        Dim myDocuments As String
 
        With My.Computer.FileSystem
            MeineDatei = .SpecialDirectories.MyDocuments
            myDocuments = .GetFiles(MeineDatei).ToArray
        End With
 
        With OpenFileDialog1
            .Titel = "Aussagekräftiger Titel des Dialogs"
 
            'Verhalten des Dialogs einrichten
            .CheckFileExists = True
            .Multiselect = False
            .ValidateNames = True
 
            'Defaults einrichten
            .InitialDirectory = MeineDatei
            .FileName = ""
            If Not myDocuments.Length = 0 Then
                .FileName = IO.Path.GetFileName(myDocuments(0))
            End If
 
            ' Filter für Dateierweiterungen einrichten
            .Filter = _
            .FilterIndex = 2
 
            ' Dialog aufrufen und Rückgabe verarbeiten
            If ShowDialog() = _
                Windows.Forms.DialogResult.Cancel Then Exit Sub
 
            ' Lesen der Datei
            Dim datPfad As String = "C:\Users\Username\Documents"
            Dim newln As String = Environment.NewLine
            Dim reader As StreamReader
            txtStadtname.Text = String.Empty
 
            Try
                If File.Exists(datPfad) Then
                    reader = New StreamReader(datPfad)
                    Do While reader.Peek > -1
                        txtStadtname.Text &= reader.ReadLine() & newln
 
                    Loop
                    reader.Close()
                Else
                    Throw New Exception("Datei existiert nicht.")
                End If
 
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Fehlerhinweis")
            End Try
 
        End With
 
    End Sub