Vista - new regExp

' Hi
'
' I'm trying to make some scripts VBS to upload in the 911CD forum:
' http://www.911cd.net/forums//index.php?showtopic=22225
'
' Instead of using the "inStr(x)" syntax, instead I tried a regExp,
' but since I'm somehow unaccustomed to the regExp, so I'm not sure
' this is the best (brief) code to write but it seems to work fine:
' ?
' Benny, PS. Please don't use my old e-mail since it won't work...

option explicit
dim s, pos

s= " <Testing> </Testing>"
pos= getPos("<\/?TESTing>",s)

msgBox pos, 4096

function getPos(byVal patrn, byVal s)
dim r: set r= new regExp
r.pattern= patrn
r.ignoreCase= true
on error resume next
r= r.execute(s)(0).firstIndex
if err then r= -1: err.clear
getPos= r +1
end function