Imports System
Public Class Program
Public Shared Function ValidateURL(ByVal url As String) As Boolean
Return Uri.IsWellFormedUriString(url, UriKind.Absolute)
End Function
Public Shared Sub Main()
Dim url As String = "https://www.shortinfos.com/"
Dim isValidURL As Boolean = ValidateURL(url)
Console.WriteLine(isValidURL)
Console.WriteLine(ValidateURL("https://seek4info.com/search.php?query=web+hosting"))
End Sub
End Class
' run:
'
' True
' True
'