Private Sub Command1_Click()
 
On Error GoTo abbruch
 
With CommonDialog1
.DialogTitle = "Datei zum Speichern des Bildes"
.Filter = "Bitmap (bmp)|*.bmp|Alle Dateien|*.*"
.CancelError = True
.Flags = cdlOFNOverwritePrompt
.ShowSave
MsgBox "Gewählte Datei: " & .FileName
End With
 
abbruch:
 
End Sub