Option Explicit

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

---------------------------------------------------

3번문제에서요
배달여부 총 10개의 문자중에 앞에 2자리 문자만 추출하는거잖아요

그런데 여기서 trim 함수 대신 val함수를 사용하면 안되나요?

''변수 저장
                배달여부 = Val(Mid(버퍼, 93, 2))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
                일련번호 = Trim(Mid(버퍼, 1, 7))

이런식으로요..

앞에선 필요한것만 추출할때
문자라하더라도 val함수로 쓴다고 배워서요..

둘다 맞는건가요?

대신 아래 부분의 "OK"와 "NO"는 따옴표를 붙이고요..