Sub CreateMatch(text As String) As String
If text.Contains("+") Then
Dim a As String = text.Replace("+","([\w\.\-\$]+)")
a= a.Replace("\/","\\/")
End If
If a.Contains("#") Then
Dim a As String = a.Replace("#","([\w\.\-\$]+(\/[\w\.\-\$]+)*)")
End If
Return a
End Sub