1번 문제 입니다.

Sub MAIN()

''필수변수선언
Dim 인수1, 인수2, I, 버퍼 As Variant

''핵심변수선언
Dim 예약수량, 예약금액, 지불금액(10000), 예약일자(100000), 등록번호(10000), J, NUM, 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) = Trim(Mid(버퍼, 8, 10))
        지불금액(NUM) = Val(Mid(버퍼, 48, 3))
        등록번호(NUM) = Trim(Mid(버퍼, 1, 7))
    End If
    End If
    Next I
    ''정렬
    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

''출력파일처리
Open "C:\C_IT\DATA\ANS1.TXT" For Output As #2
    Print #2, 인수1, 인수2, 예약일자(NUM)
Close

End Sub

분명 같게 코딩했는데 뭐가 틀린건지 모르겠습니다..

도와주세요,,.ㅠ.ㅠ