Open "text.txt" For Input As #1 ' 打開文件。
Do While Not EOF(1) ' 循環至文件尾。
Line Input #1, a ' 讀入壹行數據並將其賦予某變量。
b=b & a & vbcrlf ' 累計疊加到變量b中
Loop
Close #1 ' 關閉文件。
現在所有的內容都讀取放到變量b中了,使用,或是顯示,都行的.