necesito saber insertar en un richtextbox una cadena en la posicion que yo le ponga

maria
06 de Agosto del 2004
Por favor necesitaria saber como se puede insertar en un richtextbox una cadena en la posicion que yo le diga, ya que mi problema es que estoy haciendo una aplicacion en red tipo messenger y a la hora de pasar los iconos cuando le digo que me inserte el icono en el richtextbox, lo mete pero luego al concatenarle el resto del mensaje, me lo borra.
Os pongo un ejemplo de lo que me pasa para que lo entendais mejor:
yo le paso esta cadena: :) hola, que tal?
y le digo al programa que cuando encuentre el simbolo :) me ponga el icono en el richtextbox
Este es el codigo que tengo
************************************************************************
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error GoTo ErrorImagen
Dim imgLaImagen As Picture
Dim strContenidoPortapapeles As String
Dim datos As String
Winsock1.GetData datos
'Hago un bucle for para saber cuando esta el simbolo de la imagen
For i = 1 To Len(datos)
c1 = Mid(datos, i, 1)
c2 = Mid(datos, i + 1, 1)
If c1 = ":" And c2 = ")" Then
i = i + 1
Set imgLaImagen = LoadPicture(App.Path & "70.gif")
strContenidoPortapapeles = Clipboard.GetText
Clipboard.Clear
Clipboard.SetData imgLaImagen
SendMessage text1.hWnd, WM_PASTE, 0, 0
Clipboard.Clear
Clipboard.SetText strContenidoPortapapeles
Else
text1.Text = text1.Text & c1
End If
Next
text1.Text = text1.Text & Chr(13)
Exit Sub
ErrorImagen:
If Err.Number <> 32755 Then
MsgBox "Error " & Err.Number & " " & Err.Description
Exit Sub
End If
End Sub
***************************************************************+
El problema que tengo es que me pone el icono en la primera vuelta del for, pero en la segunda cuando ya no encuentra el simbolo me hace text1.text = text1.text & c1
entonces el icono que hay insertado en el richtextbox desaparece ya que text1.text tiene el valor de " " por que el icono te lo coge como un blanco, con lo cual solo me muestra el texto sin la imagen. Por esto necesito que me ayudes a saber como insertar la cadena despues de el simbolo, para asi no tener que hacer text1.text = text1.text & c1 y que no me lo sobre escriba.
Espero que podais ayudarme y muchas gracias.