Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w+?\.\w+])+([a-zA-Z0-9\~\!\@\#\$\%\^\&\*\(\)_\-\=\+\\\/\?\.\:\;\'\,]*)?"
regEx.Global = true
Set RegExResults = regEx.Execute(strTarget)
Set regEx = Nothing
Set arrResults = RegExResults(pagina)
function getURL( str )
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w+?\.\w+])+([a-zA-Z0-9\~\!\@\#\$\%\^\&\*\(\)_\-\=\+\\\/\?\.\:\;\'\,]*)?"
regEx.Global = true
Set RegExResults = regEx.Execute( str )
Set regEx = Nothing
getURL = RegExResults
end function
url = getURL( strToCheck )