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\abc0105.txt" For Input As #1
           
            ''최소값 초기화
                최소값 = 999999999
                최대고객번호 = 0
               
            For K = 1 To 인수2
                Line Input #1, 버퍼
                    If K >= 인수1 Then
                       
                        ''변수 저장
                            승객만족도 = Val(Mid(버퍼, 16, 2))
                            좌석코드 = Trim(Mid(버퍼, 8, 2))
                            월이용횟수 = Val(Mid(버퍼, 32, 2))
                            열차요금 = Val(Mid(버퍼, 10, 6))
                            도착지코드 = Trim(Mid(버퍼, 22, 2)) ''--> 제 코딩 위치
                            고객번호 = Val(Mid(버퍼, 1, 5))
                           
                        ''최소값 구하기(or 최소값이 같다 and 최대고객번호의 도착지코드)
                            If (승객만족도 Mod 2) = 0 And 좌석코드 = "HE" Then
                                If 최소값 > 월이용횟수 + (열차요금 * 0.4) Or 최소값 = 월이용횟수 + (열차요금 * 0.4) _
                                And 최대고객번호 < 고객번호 Then
                                    최소값 = 월이용횟수 + (열차요금 * 0.4)
                                    최대고객번호 = 고객번호
                                    도착지코드 = Trim(Mid(버퍼, 22, 2))  ''--> 기사친구 코딩 위치
                                End If
                            End If
                    End If
            Next K
           
           
           
        Close #1
       
    ''출력 파일 처리
        Open "c:\c_it\data\ans2.txt" For Output As #2
           
            Print #2, 인수1, 인수2, 도착지코드
           
        Close #2
       
End Sub

안녕하세요..
위에 처럼 코딩을 했는데요, 제가 연습코딩한것과 기사친구에서 코딩한것중에서
도착지코드 위치가 틀리더군요..결과값은 같이 나오는데...
도착지코드 위치를 저 처럼 하면 안되는것 인가요?? 설명좀 주세요.