For i = 1 To 끝줄
            Line Input #1, 버퍼
                If i >= 시작줄 Then
                    예약일자 = Val(Mid(버퍼, 8, 4))
                    예약수량 = Val(Mid(버퍼, 18, 5))
                    예약금액 = Val(Mid(버퍼, 23, 10))
                    Select Case 예약일자
                        Case Is <= 1988
                            할인치 = 5
                        Case 1999
                            할인치 = 4
                        Case Else
                            할인치 = 3
                    End Select                   
                        If 최대값 < (예약수량 * 예약금액 * 할인치) Then
                            최대값 = 예약수량 * 예약금액 * 할인치
                        End If
                End If
        Next i

 년도 4자리를 숫자로 읽어서 select도 숫자로 처리하셨죠..
 근데 제가 그냥 문제를 풀다가 문자형이라서 그냥 문자형으로 코딩했거든요..

  For i = 1 To 끝줄
            Line Input #1, 버퍼
                If i >= 시작줄 Then
                    예약일자 = Trim(Mid(버퍼, 8, 4))
                    예약수량 = Val(Mid(버퍼, 18, 5))
                    예약금액 = Val(Mid(버퍼, 23, 10))
                    Select Case 예약일자
                        Case Is <= "1988"
                            할인치 = 5
                        Case "1999"
                            할인치 = 4
                        Case Else
                            할인치 = 3
                    End Select
                        If 최대값 < (예약수량 * 예약금액 * 할인치) Then
                            최대값 = 예약수량 * 예약금액 * 할인치
                        End If
                End If
        Next i
 
 물론 년도가 숫자임에 틀림없으므로 숫자형으로 해도 무방하겠습니다만..
 혹시 같은 조건에서 다르게 결과가 나올 수도 있는 겁니까???