Private Sub mnuÖffnen_Click()
    CommonDialog1.CancelError = True   'Fehlerroutine
    On Error GoTo Errhandler:
    CommonDialog1.Flags = cdlOFNFileMustExist
    CommonDialog1.ShowOpen
    RichTextBox1.LoadFile CommonDialog1.FileName, rtfRTF
    Form1.MousePointer = 11
    StatusBar1.Panels(1).Text = CommonDialog1.FileTitle ' Anzeigen des 
    ' aktuellen Dateinamen in Statusleiste
    Form1.MousePointer = 0
Errhandler:
    'Falls Abbrechen angeklickt wird, Prozedur verlassen
End Sub