读顺序文件时出现问题

Question

读顺序文件
dim str1 as string
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
str1 = Input(LOF(1), #1)  '把整个文件读入str1中
Close #1
print str1
在运行的时候我打开了一个txt文件。但却提示“输入超出文件尾（错误 62）”
这是怎么回事啊？请高手给菜鸟指点一下

Answer 1

dim str1 as string
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
str1 = strconv(Input(LOF(1), #1),vbUnicode)  '把整个文件读入str1中
Close #1
print str1问题点：
VB内部使用Unicode，而在外部仍转换为人们习惯的ANSI方式