Parse a string and activate any text links in the string.

        Public Function ActivateWebSiteUrl(ByVal siteString As String) As String
            Try
                Dim buf As String = siteString
                Dim patternSite As String = "\w*[\://]*\w+\.\w+\.\w+[/\w+]*[.\w+]*"
                Dim re As Regex = New Regex(patternSite)
                If re.IsMatch(buf) Then
                    buf = re.Replace(buf, AddressOf WebSiteMatchEvaluator)
                End If
                Return buf
            Catch ex As Exception
                Return siteString
            End Try
        End Function

        Private Function WebSiteMatchEvaluator(ByVal m As Match) As String
            Dim ub As UriBuilder = New UriBuilder(m.Value)
            Dim sb As StringBuilder = New StringBuilder("<a href='")
            sb.Append(ub.ToString())
            sb.Append("'>")
            sb.Append(m.Value)
            sb.Append("<a>")
            Return sb.ToString()
        End Function