62번 오류가 발생해요

파일끝을 넘어가는 입력이라고 ..

교수님 코딩이랑 똑같이 했는데요 교수님 코딩에서 해봐도 62번 파일끝을 넘어가는 입력이라고 뜹니다 어디가 잘못된건지 가르쳐주세요  command 뒤에 공백도 줬거든요..

Sub main()
''핵심변수
Dim 인수1, 인수2, 버퍼, i As Variant
''필수변수
Dim 거래처신용도, 할인금액, 단가, 월매출액, 합계 As Variant
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일처리
Open "c:\c_it\data\abc02.txt" For Input As #1
    For i = 1 To 인수2
        Line Input #1, 버퍼
          If i >= 인수1 Then
           
            ''변수저장
            거래처신용도 = Trim(Mid(버퍼, 20, 1))
            단가 = Val(Mid(버퍼, 16, 4))
            월매출액 = Val(Mid(버퍼, 26, 5))
           
            Select Case 거래처신용도
            Case "G"
              할인금액 = 360
            Case "B"
              할인금액 = 450
            Case "D"
              할인금액 = 590
            Case "K"
              할인금액 = 810
            End Select
           
           
            If 단가 >= 290 Then
            합계 = 합계 + 월매출액 - 할인금액
                                  
            End If
            
          End If

    Next i
Close #1

''출력
Open "c:\c_it\data\ans4.txt" For Output As #2
Print #2, 인수1, 인수2, 합계

Close #2
end Sub