Innehåll i variabel skrivs ut på fel ställe

Jag vill ersätta en variabel med värdet i en annan variabel. Rad 1 nedan fungerar perfekt. Men när jag vill ersätta variabeln med en variabel som körs igenom en funktion skrivs det nya värdet ut först innan allt annat innehåll i sString. Oavsett vart i sString som t ex. {%strCompanyEmail1%} finns och oavsett vilken funktion jag använder.

sString = Replace(sString, "{%strCompanyFax2%}", strCompanyFax2)
sString = Replace(sString, "{%strCompanyEmail1%}", AntiSpam(strCompanyEmail1, "yes"))

Function AntiSpam(ByVal strAntiSpam, strPrint)
  If Not strAntiSpam = "" Then
    arrRawEmail = Split(strAntiSpam, "@")
    arrAntiSpamEmail = Split(arrRawEmail(1), ".")
    strAntiSpam = "<a href=""javascript:NoSpam('" & arrAntiSpamEmail(1) & "." & arrAntiSpamEmail(0) & "|" & arrRawEmail(0) & "')""><script type=""text/javascript"">document.write(ConvertEmail(""" & arrAntiSpamEmail(1) & "." & arrAntiSpamEmail(0) & "|" & arrRawEmail(0) & """))</script></a>"
    If strPrint = "yes" Then
      Response.Write strAntiSpam
    End If
  End If
End Function