仕様がよくわからないので、想像してみました。
変換内容をプログラム中に埋め込むのだったら、私は次のように書くと思います。

この例ではReplaceを使った単純置換ですが、Regexを使うこともできます。

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



        Dim source As String

        source = "アメリカとイギリスが戦った独立戦争にはフランス貴族の有志も参戦した。"



        Dim result As String



        Dim converter As New NameConverter

        result = converter.Convert(source)



        '結果 

        '亜米利加と英吉利が戦った独立戦争には仏蘭西貴族の有志も参戦した。 



    End Sub

End Class



Public Class NameConverter



    ''' <summary>変換元辞書。同じ順番にある変換先辞書の項目に変換します。</summary> 

    Protected Sources As String() =

        {

        "アメリカ", "イギリス", "ドイツ",

        "フランス", "オランダ", "スウェーデン"

        }



    ''' <summary>変換先辞書。同じ順番にある変換元辞書の項目から変換されます。</summary> 

    Protected Targets As String() =

        {

        "亜米利加", "英吉利", "独逸",

        "仏蘭西", "和蘭", "瑞典"

        }



    ''' <summary>変換元辞書の項目を変換先辞書の項目で置換します。</summary> 

    Public Overridable Function Convert(source As String) As String



        Dim result As String = source



        For i As Integer = 0 To Sources.Length - 1

            result = Replace(result, Sources(i), Targets(i))

        Next



        Return result



    End Function



End Class

変換テーブルの量や内容によっては耐えられほど遅い処理になる可能性があります。
100個や200個のReplaceくらいなら余裕でこなすと思います。

YUUさんは、
>指定の文字列のみ変換したい対象の文字列として変換し、出力するといったPGを作成しております。
とのことですが、
定義されている「現在のコード」は何も変換していないように見えます。

DictionaryのキーにRegexのような機能的なものを格納するのは個人的な感覚としてはちょっと違和感があります。