Private Sub Command1_Click()
Dim index As Integer
Dim Bildpfad, Bildname As String
 
On Error GoTo fehler
 
    With cd3
        .CancelError = True
        .Filter = "Bilder |*.bmp;*.jpg;*.gif||"
 
        ' Dialogfeld Öffnen anzeigen
        .ShowOpen
            If .FileName <> "" Then
                Bildpfad = .FileName    'Pfad
                Bildname = .FileTitle     'Dateiname
                InsertPictureInRichTextBox rtbBox(index), LoadPicture(Bildpfad)
            Else
                Exit Sub
            End If
    End With
fehler:
End Sub
Sub InsertPictureInRichTextBox(RTB As RichTextBox, Picture As StdPicture)
    On Error GoTo picErr
    Clipboard.Clear
    Clipboard.SetData Picture
    SendMessage RTB.hwnd, WM_PASTE, 0, 0
    Exit Sub
picErr:
End Sub