请高手指点

FileNum=freefile
open file for output as #FileNum
    print #FileNum,"VB程序写到文本"
close #FileNum
-----------------------------------------------------------------
Dim AAA as string
FileNum=freefile
open file for output as #FileNum
    Do while not eof(FileNum)
        Line input #FileNum,AAA
    loop
close #FileNum