Private Sub Command2_Click()
    On Error GoTo Fehler
    SavePicture Me.DestP.Image, "PFAD zum speichern"
    Exit Sub
Fehler:
    MsgBox "Fehler : Datei konnte nicht gespeichert werden : ", _
    vbOKOnly + vbExclamation, "Fehler...", 0, 0
End Sub