Convert JScript To VBScript

Hi there,

Can you plz convert me the following JScript function into its equivalent VBScript.

-----------------------------------------------------
function GetHTMLDocTitle(s) {
//returns the text between the Title tags

s = "" + s + "";

//this pattern returns the title of an html document.
var re = /(\<TITLE\>)(\s*)(.+)(\s*)(\<\/TITLE\>)/i
var arr = re.exec(s);
return RegExp.$3;
}

--------------------------
Thanks

The JScript regular expression is unnecessary, since this is server side you can just use the same COM object:

 Function GetTitle(s)
     Dim document : Set document = CreateObject("htmlfile")
     document.write(s)
     GetTitle = document.title
 End Function