求救，关于VBS中的ReadLine函数一行行读取文本文件内容的问题
以前从来没有接触过VBS，今天无意中要用到，就是从txt文件中一行行读取文件内容，代码如：
Dim fso, MyFile,hh
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("D:\source.txt", 1 , TRUE)
Do While MyFile.AtEndOfLine <> True
username=MyFile.ReadLine
msgbox username
loop
MyFile.Close
source.txt文件内容如下：
111111
22222
3333
444
就这么简单的内容。
运行的结果却是：
一次全部显示出来了，也就是说，根据代码，应该是点击“确定”按钮，显示一行才对。但是，现在的结果是：运行程序后，全部把内容显示出来了，根本就没有一行一行的读啊？
谁能帮下忙解决我的疑惑啊？？ --------------------编程问答-------------------- LZ你自己是否文件有问题，行之间不是回车换行符，你的代码在Vb及Word下测试都正常 --------------------编程问答--------------------
Dim fso, MyFile,hh
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("D:\source.txt", 1 , TRUE)
Do While MyFile.AtEndOfLine <> True
username=MyFile.ReadLine
msgbox username
MyFile.NextLine
loop
MyFile.Close
补充：VB , API
