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