Ehm non puoi fare una funzioncina che fa il replace?
<%
function Smiles(byref Messaggio)
Messaggio = Replace(Messaggio,":-)","[img][/img]")
end function
%>