Dim cmd As Object
    Set cmd = CreateObject("MSComDlg.CommonDialog.1")
    With cmd
        .DialogTitle = "Bitte Sourcefile wählen"
        .Filter = "TextDatei|*.txt"
        .InitDir = Me.Path
        .Flags = &H1000
        .Filename=""
        .ShowOpen
        if .Filename  <> "" Then
           msgbox .Filename
        End If
    End With