결과값이 틀리게 나와서 도움을 요청합니다.

어디에 오류가 있는지 알려주세요...

결과값이 안나오거나 틀린 경우 소스 코딩 하나하나 다 살펴야 하는 거죠?

에궁...아무리 봐도 못찾으면 어떡하죠?ㅠㅠ

Sub main()

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

''핵심 변수 선언
Dim 회원구분, 예약수량, 예약금액, 합계(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
       
            ''변수 저장
            회원구분 = 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