계속 오류가 발생해요...ㅠ.ㅠ

"  ''62''런타임 오류가 발생하였습니다

파일 끝을 넘어가는 입력입니다. " 하구요...

몇번이나 확인을 해도 어디가 잘못된건지 모르겠습니다.

많이 바쁘시겠지만 확인 좀 부탁드릴께요^^

거래처관리 1번 문제 입니다...

Option Explicit

Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 단가, 이익포인트, 거래포인트, 합계(1000), j, Temp, Num As Variant
   
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   

    ''입력 파일 처리
    Open "c:WC_ITWdataWabc0001.txt" For Input As #1
       
        For i = 1 To 인수2
            Line Input #1, 버퍼  <--- (여기에 계속 오류가 생겨요 ㅠ.ㅠ)
            If i >= 인수1 Then
               
                ''변수저장
                단가 = Val(Mid(버퍼, 12, 3))
                이익포인트 = Val(Mid(버퍼, 20, 3))
                거래포인트 = Val(Mid(버퍼, 27, 3))
               
                If 단가 >= 50 Then
                    Num = Num + 1
                    합계(Num) = 이익포인트 + 거래포인트
                End If
                               
            End If
          
        Next i
       
        ''정렬 알고리즘(내림차순)
        For i = 1 To Num
            For j = i To Num
                If 합계(i) < 합계(j) Then
                    Temp = 합계(i)
                    합계(i) = 합계(j)
                    합계(j) = Temp
                End If
            Next j
        Next i
       
   
    Close #1
   
    ''출력 파일 처리
    Open "c:WC_ITWdataWans1.txt" For Output As #2
   
        Print #2, 인수1, 인수2, 합계(5)
       
    Close #2
   
End Sub