62 런타임 오류라고 나오는데... 도무지 어디가 틀렸는지 모르겠어요 T.T

Option Explicit

Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 결재금액, 예약수량, 예약금액, 합계(1000), 결재금액배열(1000), 예약번호(1000), j, Temp, Num As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력 파일 처리
    Open "c:\c_it\data\abc03.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수 저장
                결재금액 = Val(Mid(버퍼, 48, 10))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
               
               
                ''배열 변수 구하기
                If 결재금액 < 5000000 Then
                    Num = Num + 1
                    합계(Num) = 예약수량 * 예약금액
                    결재금액(Num) = 결재금액
                    예약번호(Num) = Trim(Mid(버퍼, 1, 7))
                End If
               
            End If
       
        Next i
       
        ''정렬(합계 오름차순 or (합계 같음 and 예약번호 오름차순))
        For i = 1 To Num
            For j = i To Num
                If 합계(i) > 합계(j) Or _
                (합계(i) = 합계(j) And 예약번호(i) > 예약번호(j)) Then
               
                    Temp = 합계(i)
                    합계(i) = 합계(j)
                    합계(j) = Temp
                   
                    Temp = 결재금액배열(i)
                    결재금액배열(i) = 결재금액배열(j)
                    결재금액배열(j) = Temp
                   
                   
                    Temp = 예약번호(i)
                    예약번호(i) = 예약번호(j)
                    예약번호(j) = Temp
                   
                End If
            Next j
        Next i
       
       
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
        Print #2, 인수1, 인수2, 결재금액배열(Num)
    Close #2
   
   
End Sub