"VBA" Programlama dilinde "Dictionary Key Value Değerlerini Ters Çevirmek" ile ilgili kod örneği aşağıda verilmiştir.

Sub ReverseDict()
    Dim ascii_dict As Scripting.Dictionary
    Set ascii_dict = New Scripting.Dictionary
    ascii_dict.Add "A", 65
    ascii_dict.Add "B", 66
    ascii_dict.Add "C", 67
    ascii_dict.Add "D", 68

    Dim new_dict As Scripting.Dictionary
    Set new_dict = New Scripting.Dictionary
    Dim key As Variant
    For Each key In ascii_dict.Keys()
        new_dict.Add ascii_dict.Item(key), key
    Next key

    Dim item As Variant
    For Each item In new_dict.Items()
        Debug.Print item
    Next item
End Sub