Thread: check
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default check

All ISValidURL does is returns either a true or False response.
URL = "http://www.vb2themax.com"
if IsValidUrl(URL) = True then
'enter your code here
Else
msgbox("Invalid URL")
end if

"geebee" wrote:

hi,

i found the following:

' Validate a URL
' Example: MessageBox.Show(IsValidUrl("http://www.vb2themax.com"))

Function IsValidUrl(ByVal url As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(url, _
"(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?")
End Function

but im not sure how to use it or adapt it for my vba. can someone help?

thanks in advance,
geebee