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
                 Select Case 서적분류코드
                    Case "A2": 추가금액 = 720
                Select Case 서적분류코드
                    Case "B2": 추가금액 = 620
                Select Case 서적분류코드
                    Case "B3": 추가금액 = 510
                Select Case 서적분류코드
                    Case "C3": 추가금액 = 430
                Select Case 서적분류코드
                    Case "C4": 추가금액 = 790
                Select Case 서적분류코드
                    Case "D4": 추가금액 = 150
                Select Case 서적분류코드
                    Case "D5": 추가금액 = 210
               
                End Select
               
                    ''합계구하기
                    If 출판년월 <= 2000 Then
                        합계 = 합계 + 월매출액 + 추가금액
                    End If
               
                End If
            Next i
        Close #1
                           
        ''출력파일처리
            Open "c:\c_it\data\ans03.txt" For Output As #2
                Debug.Print 인수1, 인수2, 합계
                Print #2, 인수1, 인수2, 합계
            Close #2
      
End Sub

-> 이렇게 코딩을 하고 실행을 시키면

블럭 if 가 없는 end if 라는 에러가 뜹니다... 근데 왜 그런 메세지가 뜨는지

도저히 모르겠어요...ㅜㅜ 가르켜주세요~~~~~~~~~!!