por lo que entendi queres poner una imagen en un text box, eso es imposible.
lo que haces es poner un RICH TEXT BOX (buscalo en los componentes).
yo hice algo parecido con un chat y smiles asi que te dejo el codigo...
Do While i <= Len(Text1.Text) \'un while que pasa cada dos letras
If Mid(Text1.Text, i, 2) = \":)\" Then \'si esas dos letras son \":)\"
Text1.SelStart = i - 1
Text1.SelLength = 2 \'seleccionalas
Text1.OLEObjects.Add , , App.Path & \"/imgs/smile.bmp\" \'pone la imagen (asi como las letras estan seleccionadas las cambia
Text1.SelStart = Len(Text1.Text)
End If
If Mid(Text1.Text, i, 2) = \":(\" Then \'lo mismo que antes
Text1.SelStart = i - 1
Text1.SelLength = 2
Text1.OLEObjects.Add , , App.Path & \"/imgs/sad.bmp\"
Text1.SelStart = Len(Text1.Text)
End If
If Mid(Text1.Text, i, 2) = \":D\" Then
Text1.SelStart = i - 1
Text1.SelLength = 2
Text1.OLEObjects.Add , , App.Path & \"/imgs/smile2.bmp\"
Text1.SelStart = Len(Text1.Text)
End If
If Mid(Text1.Text, i, 2) = \";)\" Then
Text1.SelStart = i - 1
Text1.SelLength = 2
Text1.OLEObjects.Add , , App.Path & \"/imgs/tic.bmp\"
Text1.SelStart = Len(Text1.Text)
End If
If Mid(Text1.Text, i, 2) = \"`(\" Then
Text1.SelStart = i - 1
Text1.SelLength = 2
Text1.OLEObjects.Add , , App.Path & \"/imgs/cry.bmp\"
Text1.SelStart = Len(Text1.Text)
End If
If Mid(Text1.Text, i, 2) = \":$\" Then
Text1.SelStart = i - 1
Text1.SelLength = 2
Text1.OLEObjects.Add , , App.Path & \"/imgs/Oops.bmp\"
Text1.SelStart = Len(Text1.Text)
End If
If Mid(Text1.Text, i, 2) = \":S\" Then
Text1.SelStart = i - 1
Text1.SelLength = 2
Text1.OLEObjects.Add , , App.Path & \"/imgs/S.bmp\"
Text1.SelStart = Len(Text1.Text)
End If
If Mid(Text1.Text, i, 2) = \"B)\" Then
Text1.SelStart = i - 1
Text1.SelLength = 2
Text1.OLEObjects.Add , , App.Path & \"/imgs/glasses.bmp\"
Text1.SelStart = Len(Text1.Text)
End If
If Mid(Text1.Text, i, 2) = \":P\" Then
Text1.SelStart = i - 1
Text1.SelLength = 2
Text1.OLEObjects.Add , , App.Path & \"/imgs/ll.bmp\"
Text1.SelStart = Len(Text1.Text)
End If
i = i + 1
Loop
asi agregas imagenes....