Öffnen-Dialog (GetOpenFilename) mit vorgegebenen Ordner

Diese Routine öffnet den Dialog zum Öffnen einer Datei.
Zuvor wird in einen Vorgabeordner gewechselt.
Sub Öffnen()
    ChDir "\"
    ChDrive "c:"
    ChDir "c:\eigene dateien\excel"
    Datei = Application.GetOpenFilename _
       ("Microsoft Excel-Dateien (*.xls), *.xls")
    If Datei = False Then Exit Sub
    Workbooks.OpenText Filename:=Datei, Origin:=xlWindows
End Sub