뭐가 틀린건가요??T.T

Sub Main()
''필수변수
Dim 인수1, 인수2, 버퍼, I As Variant

''핵심변수
Dim 제조등급, 매출액, 판매량, 제조포인트, 합계(1000000), NUM, J, TEMP As Variant

''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''입력파일
Open "C:\C_IT\DATA\ABC05.TXT" For Input As #1
For I = 1 To 인수2
Line Input #1, 버퍼
If I >= 인수1 Then
    ''변수저장
    제조등급 = Trim(Mid(버퍼, 29, 1))
    매출액 = Val(Mid(버퍼, 26, 3))
    판매량 = Val(Mid(버퍼, 15, 3))
    제조포인트 = Val(Mid(버퍼, 20, 3))
    If 제조등급 = "C" And 매출액 >= 80 Then
    NUM = NUM + 1
    합계(NUM) = 판매량 + 제조포인트
    End If
   
End If
Next I
''정렬
For I = 1 To NUM
For J = I To NUM
    If 합계(I) < 합계(I) 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, 합계(5)
Close #2
End Sub

틀렸다는데 뭐가 틀린건지 모르겠어요,..