100 200 입력해도 아무것도 안나오는 건 왜죠?

050513 오후문제 3번 입니다



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\san0105.txt" For Input As #1
   
        ''초기화
        최대값 = 0
        최대일련번호 = 0
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''변수저장
                배달여부 = Trim(Mid(버퍼, 93, 2))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
               
                ''최대일련번호구하기
                If 배달여부 <> "OK" Or 배달여부 <> "NO" Then
                    If 최대값 < 예약수량 * 예약금액 Or 최대값 = 예약수량 * 예약금액 And 최대일련번호 < 일련번호 Then
                        최대값 = 예약수량 * 예약금액
                        최대일련번호 = 일련번호
                    End If
                End If
            End If
        Next i
       
      
    Close #1
    ''출력파일처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 최대일련번호
    Close #2
   
End Sub