Imports System

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        Dim a as String = "/a/users/15/badges?params%5Bnotifications%5D%5Bcount%5D=5 HTTP/1.1"" 200 143 ""Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)"""

        Dim s as String = Regex.Replace(a, "(a/users/\d*/).*(\(.*\))", "$1 $2")

        Console.WriteLine(s)

    End Sub

End Module