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

.GetFiles(MeineDatei).ToArray