Imports System
imports system.Text.RegularExpressions
Public Module Module1
Public Sub Main()
Dim s as String = "We are on Test Number 1"
Dim newNumber as Integer = 2
s = Regex.Replace(s,"(Test Number )(\d)","${1}" & newNumber)
Console.WriteLine(s)
End Sub
End Module