�ffnen-Dialog aufrufen

Wie kann man den Standard-Dialog zum �ffnen einer Datei aufrufen ?
Der Dateiname soll anschlie�end in einer Variablen gespeichert werden.
Sub �ffnen()
    Dateiname = Application.GetOpenFilename("Textdateien, *.txt,")
    If Dateiname <> False Then MsgBox Dateiname
End Sub