Файл в формате Юникод - VB

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

Подскажите пожалуйста, как програмно прочитать файл с русским текстом в формате Юникод(C/C++, Паскаль, Delphi, VB, любой из них. Нужен сам принцип.) Например, из VB6 я не могу его прочитать. Считывается первая строка с англ. текстом, а дальше-всё. Или как преобразовать в ANSI. Спасибо.

Решение задачи: «Файл в формате Юникод»

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

                            Public Function UniConv(UniSt as String) as String
Dim i as Integer, st as String
UniConv=""
For i=1 To Len(UniSt)
st=Mid(UniSt,i,1)
If st=Chr(208) Or st=Chr(209) Then
i=i+1
st=Chr(Asc(Mid(UniSt,i,1))+112-(209-Asc(st))*64)
End If
UniConv=UniConv & st
Next
End Function
                        