Private Sub mnuPicture_Click()
    Dim strZielDatei As String
    CommonDialog1.CancelError = True
    On Error GoTo errh
 
    CommonDialog1.Filter = "Alle Dateien (*.*)|*.*|Bildateien (" & _
      "*.jpg|*.jpg|Bitmap (*.bmp)|*.bmp|"
    CommonDialog1.FilterIndex = 3
    CommonDialog1.ShowOpen
    strZielDatei = CommonDialog1.FileName
    strDatei = strZielDatei
    strDateiArt = Right(strDatei, 3)
    RichTextBox1.LoadFile strZielDatei
    Me.Caption = strProdukt & strZielDatei
    Exit Sub
 
errh:
End Sub