vale ya me ha salido a veces es algo tan sencillo...
solo he añadido dos mailto:
Código:
elseif (mid(sIn, charPos, 7) = "@") or (mid(sIn, charPos, 7) = "mailto:") then
sOut = sOut + "<a href=""mailto:"
if mid(sIn, charPos, 7) = "mailto:" then
charPos = charPos + 7
end if
Así se consigue que no aparezca el mailto: en el código final
Gracias a todos