テキストファイルの閉じ方について

いつもお世話になります。
環境はXPを使用しています。

VBAでセルに設定してあるハイパーリンクを開くと
テキストファイルが開くようにしてあります。
このテキストファイルを閉じようとするのですが、
閉じません。
ちなみにソースは以下の通りです。

intFileNum = FreeFile
Open strFileName For Input As intFileNum
i = 1
Do While Not EOF(intFileNum)
Input #intFileNum, TextLine
Cells(i, 1) = TextLine
i = i + 1
Loop
Close #intFileNum

最後のCloseで閉じないのはなぜですか？
初めてテキストファイルを操作するのでよくわかりません。
よろしくお願いします。

No.1 ベストアンサー 回答者： sakura-pon 回答日時： 2005/08/01 09:12

ここでの「Close」は「Open」メソッドに対する終了処理です。

したがって、テキストファイルが閉じる訳でありません。

要するに、ファイルの制御を終了するという意味です。