결과값이 다르게 나옵니다. 봐주세요. 시간이 없는데 ....

Sub main()

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