Option Explicit
 
Private Sub Command1_Click()
    Dim s As String
 
    On Error Resume Next
 
    cdlg.CancelError = True
 
    cdlg.ShowOpen
 
    If Err.Number > 0 Then
        MsgBox "Abbruch war gewählt", vbInformation
        Exit Sub
    End If
 
    on error goto 0
 
'hier irgendwie weitermachen
 
    s = cdlg.FileName
    MsgBox s, vbInformation
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1