100           200           2096360  이렇게 답이 나오네요ㅜ.ㅜ
뭐가 잘 못 된 것인지..

Sub main()

 ''필수 변수 선언
    Dim 인수1, 인수2, K, 버퍼 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 K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
                ''변수저장
                월매출액 = Val(Mid(버퍼, 26, 5))
                서적분류코드 = Val(Mid(버퍼, 5, 2))
                출판년월 = Trim(Mid(버퍼, 7, 4))
               
            ''표처리
            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 K
       
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2
   
End Sub