Dim r As String
將f作為字符串變暗
指定f作為文件的路徑。
f =“t . txt“
num = FreeFile（）
以數字形式輸入時打開f
while Not EOF（num）
線路輸入號
消息框（r）
行