결과값이 다르게 나옵니다..

34강 회원별관리 고급 1번문제입니다

Sub MAIN()

    ''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심변수선언
    Dim 회원구분, 예약수량, 예약금액, 예약번호(1000), 합계(1000), num, j, Temp As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc0002.txt" For Input As #1
      
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''변수저장
                회원구분 = Trim(Mid(버퍼, 33, 1))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
               
                             
                ''배열변수구하기
                If 회원구분 = "0" Or 회원구분 = "1" Then
                    num = num + 1
                    합계(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
                   
                End If
               
            Next j
           
        Next i
       
      
       
    Close #1
   
    ''출력파일
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 예약번호(10)
       
    Close #2
   
   
End Sub