ファイルにこれ以上データがありません。(エラー番号：62)

---

Sub Sample1()
    Dim buf As String
    Open "C:\Sample.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
        Loop
        Line Input #1, buf
    Close #1
End Sub

テキストファイルを開いて、すべてのデータを1行ずつ取得するには、

Do Until EOF(1)
    Line Input #1, buf
Loop

とします。

Line Inut#ステートメントは、ファイルから1行分のデータを読み取ります。Line Inut#ステートメントを実行すると、ファイル内の次の読み込み位置が、読み込んだ次の行に移ります。すべてのデータを読み込むと、次の読み込み位置はファイルの末尾になり、それ以上データを読み込むことはできません。読み込み位置が末尾にあるかどうかはEOF関数で判定します。EOF関数は、次の読み込み位置が末尾にくるとTrueを返します。