Private Sub mnuSpeichernUnter_Click() 
  Dim sExt As String
 
  On Error Resume Next
  With CommonDialog
    .CancelError = True
    .InitDir = funktion_stspeichern 'Funktionsaufruf 
    .DialogTitle = "Speichern eines Textdokuments" 
    .FileName = mdiHaupt.ActiveForm.txtDateiname.Text 
    .ShowSave 
 
    If Err.Number = 0 Then
      sExt = LCase$(mdiHaupt.ActiveForm.txtEndung.Text)
      [color=red]MsgBox sExt[/color]
 
      If sExt = ".rtf" Then
        mdiHaupt.ActiveForm.rtfText.SaveFile .FileName, rtfRTF 
      Else 
        mdiHaupt.ActiveForm.rtfText.SaveFile .FileName, rtfText 
      End If 
      mdiHaupt.ActiveForm.txtGedrückt.Text = 0 
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de