' Enthält den Name der Variablen mit dem zu ersetzenden Wert
   Private myVariables As New Dictionary(Of String, String)
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      ' Name der Variablen mit dem zugehörigen Wert in Dictionary aufnehmen
      myVariables.Add("{Text}", "TextWert")
      myVariables.Add("{MyText}", "MyTextWert")
   End Sub
 
   Private Sub btnReplace_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles btnReplace.Click
      ' Hier den Text laden (in dem Falle ein einfacher String)
      Dim myString As String = "Das ist ein {Text} indem {MyText} steht."
 
      ' Text mit Platzhaltern ausgeben
      Debug.WriteLine(myString)
 
      ' Alle Wörter die mit { beginnen und } enden in Methode MyEvaluator 
      ' auswerten/ändern
      myString = Regex.Replace(myString, "{[A-Za-z]*}", AddressOf MyEvaluator)
 
      ' Ersetzten Text ausgeben
      Debug.WriteLine(myString)
   End Sub
 
   Private Function MyEvaluator(ByVal match As _
     System.Text.RegularExpressions.Match) As String
      ' Prüfe, ob die Variable im Dictionary vorhanden ist
      If myVariables.ContainsKey(match.Value) Then
         ' true -> Gib den entsprechenden Wert zurück
         Return myVariables(match.Value)
      End If
 
      ' Bei keiner Übereinstimmung Wert unverändert zurückgeben
      Return match.Value
   End Function