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\abc04.txt" For Input As #1
          
            For i = 1 To 인수2
                Line Input #1, 버퍼
                If i >= 인수1 Then
                 ''변수저장
                    예약수량 = Val(Mid(버퍼, 18, 5))
                    회원번호 = Trim(Mid(버퍼, 38, 4))
                   
                ''표처리
                Select Case 예약수량
                    Case Is >= 71
                        추가지급량 = 15
                    Case Is >= 41
                        추가지급량 = 8
                    Case Else
                        추가지급량 = 4
                End Select
                ''합계구하기
                If 회원번호 = "GOOD" Or 회원번호 = "VERY" Then
                    합계 = 합계 + 예약수량 + 추가지급량
                End If

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

컴파일 오류입니다

for가 없는 next문  이라고 나와요~