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

배운데로 분명히 안거 같은데, 자꾸 결과값이 틀리게 나오거든요.

1.2.4번은 다 맞았구요..

어디가 틀렸는지 알려주세요..

******************************************************************

Option Explicit

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\abc02.txt" For Input As #1
 For i = 1 To 인수2
  Line Input #1, 버퍼
   If i > 인수1 Then
  
   ''변수저장
   서적분류코드 = Trim(Mid(버퍼, 5, 2))
   출판년월 = Val(Mid(버퍼, 7, 4))
   월매출액 = Val(Mid(버퍼, 26, 5))
  
   ''표처리
   Select Case 서적분류코드
    Case "A1"
     추가금액 = 560
    Case "A2"
     추가금액 = 720
    Case "B2"
     추가금액 = 620
    Case "B3"
     추가금액 = 510
    Case "C3"
     추가금액 = 430
    Case "C4"
     추가금액 = 790
    Case "D4"
     추가금액 = 150
    Case "D5"
     추가금액 = 210
   End Select
  
   ''합계 구하기(2000년 이전 - 등호포함)
   If 출판년월 <= 2000 Then
    합계 = 합계 + 월매출액 + 추가금액
   End If
  
  End If
 Next i
 
 Close #1

''출력파일처리
Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2

End Sub