Sub Dateiwahl()
Dim AuswahlDialog As FileDialog
Dim OKGedrueckt As Boolean
Set AuswahlDialog = Application.FileDialog(msoFileDialogFilePicker)
AuswahlDialog.InitialFileName = "d:\test.txt"
OKGedrueckt = AuswahlDialog.Show
If OKGedrueckt Then
MsgBox "Auswahl: " & AuswahlDialog.Item
End If
End Sub
Wirf doch mal einen Blick in die Hilfe, Du kannst nämlich u.a. die Beschriftung der "Öffnen"-Schaltfläche ändern, Dateifilter anlegen und vorauswählen, Mehrfachauswahl aktivieren (Auswahl mehrerer Dateien gleichzeitig) etc. - und man kann auf gleichem Weg auch einen Verzeichnisauswahldialog realisieren.
Gruß, Jürgen