Ö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