Imports System
Imports System.Text.RegularExpressions

Public Class Test
	Public Shared Sub Main()
		Dim str As String = "{capital?} has a bridge for {people?}"
		Dim str1 As String
		str1 = Regex.Replace(str, "\{(\w+)\?\}", "$1_DEN")
        Console.WriteLine(str1) ' dd
	End Sub
End Class