codice:
Function TextToImg(Text,Folder,ImgAttr)
	Dim i,Length,ArOut()
	Folder = Replace(Folder,"\","/")
	If Len(Folder)>0 then If Mid(Folder,Len(Folder),1)<>"/" then Folder = Folder & "/"
	If ImgAttr<>"" then ImgAttr=" " & ImgAttr
	Length = Len(Text)
	Redim ArOut(Length-1)
	For i=1 to Length
	 ArOut(i) = "[img]" & Folder & Mid(Text,i,1) &".gif[/img]"
	Next
	TextToImg = Join(ArOut,VbCrLf)
End Function

Response.Write TextToImg("Ciao","Images/Lettere/Arial/","border='0' width='16px'")
Nel primo parametro metti la scritta, nel secondo dove si trova la cartella con le immagine e nel terzo eventuali attributi sull'immagine.