!!!VB ファイルを読む
 const IN_FILE_NAME as String="c:test.txt"
 Dim fn As Integer
 Dim line  As String
 
 fn = FreeFile
 
 Open IN_FILE_NAME For Input As #fn
 
 Do While Not EOF(fn)
     Line Input #fn, line
     Debug.Print line
 Loop
 
 Close #fn