4번 결과값이 계속 4699가 나옵니다.

소스코딩은 아래와 같이 했는데요. 뭐가 잘못되었는지 모르겠어요..

시험이 얼마안남았는데, 빠른 답변 부탁드립니다...

--------------------------------------------------------

Sub main()

Dim 인수1, 인수2, i, 버퍼 As Variant
Dim 분류코드, 적용포인트, 수량, 합계 As Variant

인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

Open "c:\c_it\data\abc1118.txt" For Input As #1

For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
   
    ''변수저장
    분류코드 = Trim(Mid(버퍼, 18, 1))
    수량 = Val(Mid(버퍼, 15, 3))
    
     Select Case 분류코드
        Case "A"
        적용포인트 = 5
        Case "B"
        적용포인트 = 15
        Case "c"
        적용포인트 = 20
     End Select
       
     If 수량 >= 30 Then
        합계 = 합계 + 수량 + 적용포인트
        End If
    End If
  Next i
 
  Close #1
  
Open "c:\c_it\data\ans4.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
  
Close #2
End Sub