제가 4번 문제를 틀렸는데요~

제가 소스코딩 한 것은 다음과 같은데.. 어디가 틀렸는지 잘 모르겠습니다...
알려주세요~

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

''출력 파일 처리
Open "C:\C_it\data\ans4.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계
Close #2

End Sub