This is a followup to this question:

http://answers.google.com/answers/threadview?id=341150

which was never answered.  I need to covert my old Arial KOI-8 word
documents to Arial Codepage 1251 and it doesn't seem like there aren't
any out of the box converters out there.  I think I can do it using
this method:

Set d = CreateObject("Scripting.Dictionary")

d.add 1034, 2323
d.add 1233, 4324
etc.

    For I = 1 To Selection.Characters.Count
         ac = Selection.Characters.Item(I)
         If IsEmpty(d(AscW(Selection.Characters.Item(I)))) Then
         '//Selection.Characters.Item(I) = Selection.Character(I)
          
         Else
            Selection.Characters.Item(I) =
ChrW(d(AscW(Selection.Characters.Item(I))))
         End If 
    Next

But i'm having a hard time getting the integer unicode values to pack
the dictionary object up to.  I want to convert Arial KOI-8 fonts to
regular Arial (in the russian language).  I need the integer values
for the old and new fonts (unicode) for upper as well as lowercase. 
I've tried using the MsgBox ChrW() call to get unicode for each letter
but it keeps on giving me different values.  Once I run this macro I
should just be able to select all -> Arial (from Arial KOI-8) and
everything should look fine.