서적매출액 관리 문제 인데요

아무리봐도 틀린데가 없는데 답이 틀리게 나와서요--

Sub main()
        ''필수변수선언
        Dim 인수1, 인수2, i, 버퍼 As Variant
       
        ''핵심변수선언
        Dim 월매출액, 주문량, 합계(1000), j, Num, Temp As Variant
       
        ''인수처리
        인수1 = Val(Left(Command, InStr(Command, " ")))
        인수2 = Val(Mid(Command, InStr(Command, " ")))
       
        ''입력파일처리
        Open "c:\c_it\data\abc02.txt" For Input As #1
           
            For i = 1 To 인수2
                Line Input #1, 버퍼
                If i >= 인수1 Then
               
                    ''변수저장
                    월매출액 = Val(Mid(버퍼, 26, 5))
                    주문량 = Val(Mid(버퍼, 13, 3))
                           
                    Num = Num + 1
                    합계(Num) = 월매출액 - 주문량
                                   
                End If
            Next i
           
        ''정렬알고리즘(오름차순)
        For i = 1 To Num
            For j = 1 To Num
           
            If 합계(i) > 합계(j) Then
            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, 합계(9)
       
        Close #2
End Sub