Private Sub Command2_Click()
    Dim s As String
 
    On Error Resume Next
 
    With Me.cdlg
        .CancelError = True
        .InitDir = "C:"
        .DialogTitle = "Datei auswählen"
        .filter = "Alle Dateien (*.*)|*.*"
    End With
 
    Me.cdlg.ShowOpen
 
    s = Me.cdlg.filename
 
    If s = vbNullString Or Err.Number > 0 Then Exit Sub
 
    Text1 = s
End Sub

Gru? Michi aus Hannover

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