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 여기서 very 관련 오류발생.  컴파일 오류, 구문 오류래요. 아무래도 very를 수식으로 인식한것 같은데..첨에 then이나 to 가 필요하다고 하더라구요 . 어떻해야 할까요. 당연히 결과값도 안나오구요
                         합계 = 합계 + 예약수량 + 추가지급량
                    End If

               
               
                   
                   
                End If
            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