Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim body = "Oh {Mail Merge 1}, can I just get a {Mail Merge 2} or {Etc}"

        Dim replacedBody = ReplaceMailMerge(body)

        Console.WriteLine(body)

        Console.WriteLine(replacedBody)

    End Sub

    Private Function ReplaceMailMerge(body As String) As String

        Dim supportedMailMergeParameters = New Dictionary(Of String, String)() From {

            {"Mail Merge 1", "Foo"},

            {"Mail Merge 2", "Bar"},

            {"Etc", "Etc..."}

        }

​

        For Each supportedMailMergeParameter In supportedMailMergeParameters

            Dim mailMergeParameter = $"{{{supportedMailMergeParameter.Key}}}"

            Dim mailMergeValue = supportedMailMergeParameter.Value

​

            body = body.Replace(mailMergeParameter, mailMergeValue)

        Next

​

        Return body

    End Function

End Module