Esto iria en el boton Insertar Imagen
Código:
Dim imgLaImagen As Picture
Dim strContenidoPortapapeles As String
Set imgLaImagen = LoadPicture("C:\imagen.jpg")
strContenidoPortapapeles = Clipboard.GetText
Clipboard.Clear
Clipboard.SetData imgLaImagen
SendMessage RichTextBox1.hWnd, WM_PASTE, 0, 0
Clipboard.Clear
Clipboard.SetText strContenidoPortapapeles
Y debes declarar la siguiente API en la parte
General - Declaraciones, osea por encima de todos los eventos, procedimientos y funciones o bien en un modulo; solo que en el modulo, tendrias que cambiar Private por Public.
Código:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const WM_PASTE = &H302
Saludos.