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\abc03.txt" For Input As #1
    For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
   
   
 ''변수저장
   
    예약수량 = Val(Mid(버퍼, 18, 5))
    예약금액 = Val(Mid(버퍼, 23, 10))
    예약일자 = Trim(Mid(버퍼, 8, 4))
   
    If 예약일자 < 1998 Then
   
    할인치 = 5
    If 예약일자 = 1999 Then
    할인치 = 4
    If 예약일자 > 2000 Then
    할인치 = 3
   
    If 예약금액 * 예약수량 * 할인치 > 최대값 Then
    최대값 = 예약금액 * 예약수량 * 할인치
    End If
    
   
    End If
    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
최대값이안나오네요 어디서 잘못되었죠?