VB.net正则表达式（网站提取器）

Question

到目前为止我有这个

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim regx As New Regex("https?://([-\w\.]+)+(:\d+)?(/([\w/_\.]*(\?\S+)?)?)?", RegexOptions.IgnoreCase)

Dim mactches As MatchCollection = regx.Matches(Input)
For Each match As Match In mactches
    TbOutput.Text = TbOutput.Replace(match.Value, [String].Format("<a href=""{0}"" target=""_blank"">{0}</a>", match.Value))
Next

我想知道我做错了什么。 TbOutput.Text = TbOutput.Replace提供错误，然后我输入了.Split并且没有工作加上我的regx.Matches(Input)给我一个错误。输入部分给我一个错误。我想知道是否必须在其中加入其他东西。