Определить, является ли текст url и выполнить определенные действия

    Private Sub TextBox1_Click(sender As TextBox, e As EventArgs) Handles TextBox1.Click
        Dim txt As String = sender.Text
        Select Case Not txt Is Nothing
            Case txt.StartsWith("http://") AndAlso txt.EndsWith(".com")
                Process.Start("rundll32", "url.dll,FileProtocolHandler " & txt)
            Case txt.StartsWith("https://") AndAlso txt.EndsWith(".com")
                Process.Start("rundll32", "url.dll,FileProtocolHandler " & txt)
            Case txt.StartsWith("www.") AndAlso txt.EndsWith(".html")
                Process.Start("rundll32", "url.dll,FileProtocolHandler " & txt)
        End Select
    End Sub

/(https?:\/\/)?(www\.)?([-а-яa-z0-9_\.]{2,}\.)(рф|[a-z]{2,6})((\/[-а-яa-z0-9_]{1,})?\/?([a-z0-9_-]{2,}\.[a-z]{2,6})?(\?[a-z0-9_]{2,}=[-0-9]{1,})?((\&[a-z0-9_]{2,}=[-0-9]{1,}){1,})?)/i

Dim url As String = "http://www.yandex.ru"
If url Like "http://*" Then
      MsgBox("Ссылка HTTP.")
ElseIf url Like "https://*" Then
      MsgBox("Ссылка HTTPS.")
ElseIf url Like "ftp://*" Then
      MsgBox("Ссылка FTP.")
Else
      MsgBox("Не известная ссылка!")
End If