''54'' 런타임오류요!!!

내일이 시험인데 급해요!!!  부탁드립니다~~~ 꾸벅 !

option explicit

Sub main()

''필수변수선언
 Dim 인수1, 인수2, i, 버퍼 As Variant
 
 ''핵심변수선언
 Dim 예약수량, 예약금액, 예약일자(1000), 지불금액(1000), 등록번호(1000), num, j, temp As Variant
 
 ''인수처리
  인수1 = Val(Left(Command, InStr(Command, " ")))
  인수2 = Val(Mid(Command, InStr(Command, " ")))
 
  ''입력파일처리
  Open "c:\c_it\data\abc06.txt" For Input As #1
 
  For i = 1 To 인수2
  Line Input #1, 버퍼
  If i >= 인수1 Then
 
  ''변수저장
  예약수량 = Val(Mid(버퍼, 18, 5))
  예약금액 = Val(Mid(버퍼, 23, 10))
 
  If (예약수량 * 예약금액) >= 700000 Then
     num = num + 1
     지불금액(num) = Val(Mid(버퍼, 48, 10))
     예약일자(num) = Trim(Mid(버퍼, 8, 10))
     등록번호(num) = Trim(Mid(버퍼, 1, 7))
    
    
     End If
    
 
 
 
 
  End If
  Next i
 
 
  ''정렬(지불금액 오름차순 or 지불금액(i)=지불금액(j) 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\ans1.txt" For Output As #2
 
  Print #2, 인수1, 인수2, 예약일자(num) <-----이부분에 걸려있어요!!!!
  
 
  Close #2
 
 
End Sub