Кодировка UNICODE и Windows 2000

Dim oldName() As Byte
dim useName() as Byte
Dim n As Integer
 
oldName = StrConv('arial cyr' & Chr$(0), vbFromUnicode)
  For n = 0 To UBound(oldName)
    useNaME(n) = oldName(n)
  Next n

Set obfWord = CreateObject("Word.Application")
obfWord.Caption = "first_doc"
obfWord.Visible = True  'или False, если файл будем сохранять
Set objfile = obfWord.Documents.Open("c:\temp\national_template.doc")
Set objBook = objFile.Bookmarks("Dept").Range
objBook.Text = "someDeptInNlsText" ' (к примеру)
Set objBook = objFile.Bookmarks("Emp").Range
objBook.Text = "someEmpInNlsText" 
...
'И так дцать закладок.
'В конце можно пробовал добавить
objFile.SaveAs("d:\result.doc")
objFile.Close
obfWord.Quit
'Сохраняет , но результат тот же

Set obfWord = CreateObject("Word.Application")
obfWord.Caption = "first_doc"
obfWord.Visible = True  'или False, если файл будем сохранять
Set objfile = obfWord.Documents.Open("c:\temp\national_template.doc")
 
src = "902 960 953 945 963 964 959 962 32 954 955 941 966 964 951 962 44 32 954 " & _
    "945 952 940 961 953 959 962 32 957 959 953 954 959 954 973 961 951 962 46 13 " & _
    "1053 1077 32 1087 1086 1081 1084 1072 1085 32 45 45 32 1085 1077 32 1074 1086 1088"
 
src = Split(src) 'теперь это массив
For i = LBound(src) To UBound(src)
    src(i) = ChrW(src(i))
Next
objFile.Bookmarks("Dept").Range.Text = Join(src, "")

Sub bb()
Dim i&, s$
s = Selection.Text
For i = 1 To Len(s)
    Debug.Print AscW(Mid$(s, i, 1)) & " ";
Next
End Sub