Private Sub ImageBox1_Click()
Dim Bildpfad, Bildname As String
 
On Error GoTo fehler ' darf nicht auskommentiert werden
 
    With CommonDialog1
        .CancelError = True
        ' Filter setzen - hier wird festgelegt, mit welchem Format
        ' eine Datei geöffnet wird.
 
        ' Dialogfeld Öffnen anzeigen
        .ShowOpen
            If .FileName <> "" Then
                Bildpfad = .FileName    'komplette Pfad
                Bildname = .FileTitle     'Nur der Dateiname
                ImageBox1.Picture = LoadPicture(Bildpfad)
            Else
                Exit Sub
            End If
    End With
 
fehler:
 
End Sub