Private Sub cmdSpeichern_Click()
    On Error GoTo fehler
    Dim F As Integer
    F = FreeFile
        sFile = ShowSaveDlg(Me, "*.txt (Textdateien)|*.txt", _
        "Textdatei speichern")
        If (sFile <> "") Then RichTextBox1.SaveFile sFile
        'MsgBox "Datei erfolgrech gespeichert", vbInformation, _
        "Speichern einer Datei"
    Exit Sub
 
fehler:
    MsgBox "Fehler beim Schreiben in Datei!" & vbCrLf & vbCrLf & _
    "Fehler: " & Error, vbCritical, "Fehler"
End Sub