ファイルは既に開かれています。(エラー番号：55)

---

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

すでにOpenステートメントで開いているファイルを、もう一度開こうとしたときに発生します。