Picture in rtb with a tag?

[Static]

is there a way to "attach" or assign a tooltiptext or a tag to a picture inserted into a richtextbox??

im using this code to replace smiles with the picture of the smile (chat program)

For X = 0 To picSmile.UBound
            If RTB1.Find(picSmile(X).Tag, tLoc, , rtfMatchCase) <> -1 Then
                RTB1.SelStart = RTB1.Find(picSmile(X).Tag, tLoc, , rtfMatchCase)
                RTB1.SelLength = Len(picSmile(X).Tag)
                Clipboard.Clear
                Clipboard.SetData picSmile(X).Image
                SendMessage RTB1.hWnd, WM_PASTE, 0, 0
            End If
        Next

what I would like is to have the smile show in the message textbox (where u enter the message...) which I can do, but when sending the message I need to be able to convert it back to text to send... (or is there an easy way to just trans the text and picture at the same time??)

Thanks!