34강 회원별 예약관리를 풀고 있습니다.

1번문제를 풀었는데.. 코딩하고 메모장으로 답을 확인하니까 원래답은 p003009가 나와야 한다는데 p003197 이런 답이 나오네요.

파워포인트의 답하고 세번이나 꼼꼼히 체크해 봤는데도 틀린데를 못찾겠네요. 다른때는 금방 찾았었는데.. 이번거는 전혀..

제가 어디가 잘못되었는지 도와주세요 ㅠㅠ

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
           
            ''''오름차순 정렬
            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