Sub main()

    ''필수변수선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
       
    
    ''핵심변수선언
    Dim 승객만족도, 좌석코드, 월이용횟수, 열차요금, 합계(1000), 고객번호(1000), P, Temp, Num As Variant
   
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc0105.txt" For Input As #1
   
        For K = 1 To 인수2
           Line Input #1, 버퍼
            If K >= 인수1 Then
           
            ''변수저장
                승객만족도 = Val(Mid(버퍼, 16, 2))
                좌석코드 = Trim(Mid(버퍼, 8, 2))
                월이용횟수 = Val(Mid(버퍼, 32, 2))
                열차요금 = Val(Mid(버퍼, 10, 6))
             
            ''배열변수구하기
                If 승객만족도 Mod 2 = 0 And 좌석코드 = "HD" Then
                    Num = Num + 1
                    합계(Num) = 월이용횟수 + (열차요금 * 0.4)
                    고객번호(Num) = Val(Mid(버퍼, 1, 5))
                End If
           
            End If
        Next K
   
       
            ''정렬(합계 오름차순 or (합계 같음 and 고객번호 내림차순)
                For K = 1 To Num
                    For P = K To Num
                   
                    If 합계(K) > 합계(P) Or _
                    (합계(K) = 합계(P) And 고객번호(K) < 고객번호(P)) Then
                   
                    Temp = 합계(K)
                    합계(K) = 합계(P)
                    합계(P) = Temp
                   
                    Temp = 고객번호(K)
                    고객번호(K) = 고객번호(P)
                    고객번호(P) = Temp
                   
                   
                   
                    End If
                    Next P
                Next K
      
    Close #1
   
   
    ''출력파일처리
    Open "c:\c_it\data\abc0105.txt" For Output As #2
   
        Print #2, 인수1, 인수2, 고객번호(3)
    Close #2

End Sub

여기서 위 노란부분에 줄이가면서 62 런타임오류 (파일끝을 넘어가는 입력)이라고 나오는데요.. 제가 아무리 모범 답이랑 비교해도 같은데..어째서 이런 오류가 뜨지지 죄송한데 너무 궁금하네여..시험장에서도 이런오류가 나오면 곤란하고요. 답 부탁드려요