Datei öffnen

ich möchte eine Datei zum Auslesen öffnen, leider bekomme ich dieses nicht so recht auf die Reihe. Kann mir dabei jemand ein paar Tips geben? Ich habe schon folgende Code-Zeile, aber wie öffne ich die Datei nach dem Aussuchen?
Sub oeffnen ()
Dim dateiname

ChDir "\"
dateiname = Application.GetOpenFilename()
End Sub