Dim WithEvents ofd As New OpenFileDialog

    Private Sub Button1_Click(sender As System.Object, _
        e As System.EventArgs) Handles Button1.Click
 
        Dim myDocPath, myDocuments() As String
        With My.Computer.FileSystem
            myDocPath = .SpecialDirectories.MyDocuments
            myDocuments = .GetFiles(myDocPath).ToArray
        End With
 
        With OpenFileDialog1
            .Title = "Aussagekräftiger Titel des Dialogs"
 
            'Verhalten des Dialogs einrichten
            .CheckFileExists = True
            .Multiselect = False
            .ValidateNames = True
 
            'Defaults einrichten
            .InitialDirectory = myDocPath
            .FileName = ""
            If Not myDocuments.Length = 0 Then
               .FileName = IO.Path.GetFileName(myDocuments(0))
            End If
 
            'Filter für Dateierweiterungen einrichten
            .Filter = _
               "Textdateien|*.txt|RTF-Texte|*.rtf|Alle Dateien|*.*"
            .FilterIndex = 2
 
            'Dialog aufrufen und Rückgabe verarbeiten
            If .ShowDialog = _
              Windows.Forms.DialogResult.Cancel Then Exit Sub
 
            'Ab hier die Angabe in .Filename weiterverwenden
            'oder das FileOk-Event des Dialogs nutzen
        End With
    End Sub