아래 소스로 해 보세요. 답변이 늦어서 죄송합니다.

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\abc1112.txt" For Input As #1
   
        ''최소고객번호 초기화
        최소고객번호 = 999999999
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수 저장
                출발지코드 = Trim(Mid(버퍼, 20, 2))
                승객만족도 = Val(Mid(버퍼, 16, 2))
                월이용회수 = Val(Mid(버퍼, 32, 2))
                여행거리 = Val(Mid(버퍼, 27, 5))
                고객번호 = Val(Mid(버퍼, 1, 5))
               
                ''도착지코드 구하기
                If 출발지코드 = "SU" And 승객만족도 <= 23 Then
                   
                    If 최대값 < (월이용회수 * 여행거리) Or _
                    (최대값 = (월이용회수 * 여행거리) And 최소고객번호 > 고객번호) Then
                       
                        최대값 = 월이용회수 * 여행거리
                        최소고객번호 = 고객번호
                        도착지코드 = Trim(Mid(버퍼, 22, 2))
 
                    End If
                  
                End If
               
            End If
        Next i
        
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 도착지코드
       
    Close #2
   
End Sub