процедура с текстом

Imports System.Text.RegularExpressions
Public Class Form1
    Sub geturl(ByVal input As String)
        If input = "" Then Exit Sub
        Dim resmatches As MatchCollection
        Dim resmatch As Match
 
        resmatches = Regex.Matches(input, "((https?|ftp|gopher|telnet|file|notes|ms-help)?:?((//)|(\\\\)?)+[\w\d:#@%/;$()~_?\+-=\\\.&]*)", RegexOptions.IgnoreCase)
        If resmatches.Count > 0 Then
            For Each resmatch In resmatches
                Dim output As String
                If Regex.IsMatch(resmatch.Value, "https?|ftp|gopher|telnet|file|notes|ms-help") = False Then
                    output = "http://" & resmatch.Value
                Else
                    output = resmatch.Value
                End If
                downloadfile(output)
            Next
        End If
    End Sub
 
    Private Sub cmb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb.Click
        geturl(TextBox1.Text)
    End Sub
 
    Sub downloadfile(ByVal input As String)
        Dim wc As New System.Net.WebClient
        Dim inputspl() As String
        inputspl = input.Split("/")
        If inputspl.Last.Contains(".") Then 'проверку на тип файла сделай
            Dim path As String = ""
            For i As Integer = 0 To inputspl.Length - 2
                path += inputspl(i) & "/"
            Next
            Dim outpath As String
            outpath = Regex.Replace(input, "(https?|ftp|gopher|telnet|file|notes|ms-help)://", "")
'сюда блок try 
            My.Computer.Network.DownloadFile(input, Application.StartupPath & "\" & outpath.Replace("/", "\")) 
        End If
    End Sub
End Class

resmatches = Regex.Matches(input, "((https?|ftp|gopher|telnet|file|notes|ms-help)?:?((//)|(\\\\)?)+[\w\d:#@%/;$()~_?\+-=\\\.&]*)", RegexOptions.IgnoreCase)

 resmatches = Regex.Matches(input, "((https?|ftp|gopher|telnet|file|notes|ms-help):((//)|(\\\\))+[\w\d:#@%/;$()~_?\+-=\\\.&]*)", RegexOptions.IgnoreCase)

 resmatches = Regex.Matches(input, "((https?|ftp|gopher|telnet|file|notes|ms-help):((//)|(\\\\))+[\w\d:#@%/;$()~_?\+-=\\\.&]*)", RegexOptions.IgnoreCase)

  resmatches = Regex.Matches(input, "((?<=\<a\shref="")([\w\d:#@%/;$()~_?\+-=\\\.&]*)(?=""\>))", RegexOptions.IgnoreCase)