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
               
            ''''합계구하기
                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

3번 코딩한건데요 수행결과가 다르게 나와요. 어디가 잘못된건지 좀 봐주세요.

672 772 입력하면 2186740이 나와야한다는데 저는 2153720이 나오거든요..