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

Формулировка задачи:

Привет всем Проблема следующая Работал я в WIN98 Англиийская версия , но с русской поддержкой на VB6 Программы писал на армянском языке, проблем ни каких Перешел на Win2000 стали возникать проблемы в частности с listbox и combobox т,е при выполнении команды additem записываются квадратики кто-нибудь талкивался с такой проблей, буду очень признателен всем советам С уважением...

Решение задачи: «Кодировка UNICODE и Windows 2000»

textual
                            Листинг программы 
                        

                            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, "")
                        