Private Sub Command1_Click()
 
On Error GoTo Err
 
    With CommonDialog1
        .DialogTitle = "Open Mp3-File"  'Text aus der Titelleiste
        .Filter = "Mp3 - Files|*.mp3"   'Dateien die angezeigt werden sollen ( 
        ' hier alle mit der Endung .mp3)
        .CancelError = True              'Wenn cancel gedrückt wird kommt es zu 
        ' einem Laufzeitfehler mit der ErrorNummer: 32755
        .ShowOpen                       'Dialog öffnen
 
        Text1.Text = .FileName          'Den Pfad in die Textbox schreiben
    End With
 
Exit Sub                                                   'Wenn Cancel nicht 
' gedrückt wurde wird die Sub hier verlassen
Err:
    If Err.Number = "32755" Then        'Wenn Cancel gedrückt wurde springt er 
    ' hierhin
        'Code der ausgeführt wird
        'wenn cancel gedrückt wurde
    End If
 
End Sub