Private Sub cmdSpeichern_Click()
  On Error GoTo fehler
  Dim F As Integer
  <font color=red>Dim sFilter As String
 
  sFilter = "Textdateien (*.txt)|*.txt|HTML-Datei (*.html)|*.html"</font>
 
  F = FreeFile
  sFile = ShowSaveDlg(Me, sFilter, "Speichern unter")
  If (sFile <> "") Then 
    RichTextBox1.SaveFile sFile
    <font color=green>' MsgBox "Datei erfolgrech gespeichert", vbInformation, _
      "Speichern einer Datei"</font>
  End If
  Exit Sub
 
fehler:
  MsgBox "Fehler beim Schreiben in Datei!" & vbCrLf & vbCrLf & _
    "Fehler: " & Error, vbCritical, "Fehler"
End Sub