Function IsValidUrl(str) 
 Dim regEx 
 Set regEx = New RegExp 
 regEx.Pattern = "http(s)?://([/w-]+/.)+[/w-]+(/[/w-./?%&=]*)?" 
 IsValidUrl = regEx.Test(str) 
End Function