Function iswww(strng) iswww = false Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "^(http|ftp|https):////[/w/-_]+(/.[/w/-_]+)+([/w/-/.,@?^=%&:/~/+#]*[/w/-/@?^=%&/~/+#])?$" regEx.IgnoreCase = True Set Match = regEx.Execute(strng) if match.count then iswww= true End Function
