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