semplicemente sostituendo ad ogni simbolo di faccina il codice dell'immagine da inserire... ad esempio:

codice:
txt = Replace(txt, ":)", "[img]/img/smile1.jpg[/img]")