Private Sub mnu_Datei_öffnen_Click()
   On Error Resume Next
   Dim sFile As String
 
   If ActiveForm Is Nothing Then loadnewdoc
   With CommonDialog1
      .DialogTitle = "Öffnen"
      .CancelError = False
      .InitDir = " C:\"
      .FilterIndex = 2
      .Filter = "Alle Datein (*.*)|*.*" & _
      "|Textdatein (*.txt) |*.txt " & _
      "|HTML-Datein (*.html) |*.html "
      .ShowOpen
      If Len(.FileName) = 0 Then
         Exit Sub
      End If
      sFile = .FileName
   End With
   ActiveForm.rftText.loadfile sFile
   ActiveForm.Caption = sFile
End Sub

>> <<