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\abc1112.txt." For Input As #1
        
         ''최소값 초기화
         최소값 = 999999999
        
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
               
                ''변수 저장
                고객구분코드 = Trim(Mid(버퍼, 18, 2))
                승객만족도 = Val(Mid(버퍼, 16, 2))
                도착지코드 = Trim(Mid(버퍼, 22, 2))
                열차요금 = Val(Mid(버퍼, 10, 6))
               
                ''표처리
                Select Case 고객구분코드
                    Case "KW"
                        추가만족도 = 9
                    Case "MO"
                        추가만족도 = 11
                    Case "KY"
                        추가만족도 = 13
                    Case "JU"
                        추가만족도 = 15
                End Select
               
                ''최소값구하기
                If 고객구분코드 = "MA" And 열차요금 >= 76900 Then
                    If 최소값 > 승객만족도 + 추가만족도 Then
                        최소값 = 승객만족도 + 추가만족도
                    End If
                   
                   
                End If
               
            End If
           
        Next K
       

       
    Close #1
   
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, 최소값
    Close #2
   
End Sub

답이 틀려요.. 뭐가 틀렸어요?