Deling af mail adresse med split funktionen

Hvordan pokker løser jeg denne opgave. Har prøvet mange spændende ting, også at se "alle" artikler igennem her på Eksperten?? Jeg ønsker at beholde teksten efter @ og teste om det er en URL.

dim urlStr(2)
'Den streng jeg vil teste med
mailStr = "jann@guldhammer.dk"

' Her vil jeg dele tekststrengen i to stykker
' Før og efter @
urlStr = split(mailStr,"@")

' Her var det så mit håb at udskrive hver side af @ - MEN AK
response.Write "Før @ = " & urlStr(0) & "<br />"
response.Write "Efter @ = www." & urlStr(1)


What dælen do we do - jeg er løbet tør for gode ideer :-(