VB程序写到文本，运行时读取文本内容做为程序的一部分

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