VB 把ASCII字符集的file.txt文件转换为unicode字符集的文件

Question

大家好，我是新手，请教一个问题如下：
   我有一个文件file.txt是ASCII字符集的，现在我要把它转换为unicode格式的文件，改怎么写呢？
   很着急，谢谢大家了

Answer 1

txt文件的前两个字节好像能够指示文件的编码，所以先要处理好前两个字节，再依次取出字符，求其ascw值，写入新的.txt。

Answer 2

可是我处理过了，请看我的程序：
     Dim SourceData
    Dim b() As Byte
    Open SourceFile For Input As #1   '打开原文件
     Open DestFile For Binary As #2    '以二进制打开目的文件
          Put #2, 1, CInt(&HFFFE)       '写入unicode字符集的标志
     Do While Not EOF(1)               '逐行读原文件
          Line Input #1, SourceData     '把原文件数据写入SouceData
         b = SourceData
         Put #2, , b                  '写入目的文件
         Put #2, , 13                 '加回车符
         Put #2, , 10                 '加换行符
     Loop
     Close #2
     Close #1但是我这样之后发现生成的DestFile是乱码啊，郁闷死了