18극장예매관리 (페이지6-62) 2번문제가..제대로 한것같은데 답이 틀리네요..

왜그런 것인지...

    ''필수변수선언
    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\abc18.txt" For Input As #1
        ''최소값초기화
        최소값 = 999999999
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''변수저장
                지불코드 = Trim(Mid(버퍼, 33, 1))
                극장코드 = Trim(Mid(버퍼, 6, 2))
                영화상영기간 = Val(Mid(버퍼, 24, 3))
                고객번호 = Val(Mid(버퍼, 1, 5))
                ''최소값구하기
                If 지불코드 = "V" Or 극장코드 = "BK" Then
                    If 최소값 > 예매수량 * 영화상영기간 Or _
                        (최소값 = 예매수량 * 영화상영기간 And 최대고객번호 < 고객번호) Then
                        최소값 = 예매수량 * 영화상영기간
                        최대고객번호 = 고객번호
                        예매고객구분코드 = Trim(Mid(버퍼, 22, 2))
                    End If
                End If
               
            End If
        Next i
      
    Close #1
    ''출력파일처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 예매고객구분코드
    Close #2