프린트까지 뽑고 대조해봤는데 아무리봐도 못찾겠어요;

실행하면 결과값이 다르게 나옵니다.

03회원별 예약관리 1번입니다.

 Sub main()
    ''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심변수선언
    Dim 회원구분, 예약수량, 예약금액, 예약번호(1000), 합계(1000), j, Num, Temp 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

            ''변수저장
            회원구분 = 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
       
            ''정렬알고리즘
            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