Option Explicit

Sub main()

Dim 인수1, 인수2, 버퍼, k As Variant
Dim 서적분류코드, 추가금액, 출판년월, 월매출액, 합계 As Variant

인수1 = Val(Left(Command, InStr(Command, " ")))
인수1 = Val(Left(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

서적분류코드 = Trim(Mid(버퍼, 5, 2))
출판년월 = Trim(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 k

Close #1

Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2

End Sub

뭐가 틀렸는지 한참~ 찾아도 못찾겠습니다
출판년월이 문자라 trim을 쓰고 "2000" 으로 써줘도 되는 걸로 알고 잇는데요
아닌것 같다. val 2000을 넣어봐도 역시
ans엔 100 밖에 안나옵니다.
100 200으로 지정해 주었는데요 말이죠..
F8 키를 눌러보니 line input #1, 버퍼
로 안넘어가더라구요