Yo creo que sería mejor hacerlo con un bucle y con dos vectores qeu contengan, uno los caracteres que se sustituiran y el otro los nombres de las imágenes. Por ejemplo:
Código:
caras = Split("--;)--/--:)--/--:(--","/")
imagenes = Split("guinio/sonrisa/triste","/")
For i=0 to Ubound(caras)
texto = Replace(texto,caras(i),"<img src="""&imagenes(i)&".gif"">")
Next
Bueno, esto es sólo un ejemplo, pero te recomiendo que lo metas en una subrutina como dice meru-kun. La variable que menciona es el texto en el que has de sustituir los caracteres por las imágenes.
Un saludo.