27강 2번 최대값구하기문제입니다.

이번엔 결과값이 503 503 40019 입니다..

저 지금 뭔가 대단히 잘못하고 있는 듯 한데 ...도와주세요 ~~

'' 필수변수선언
Dim 인수1, 인수2, i, 버퍼 As Variant
'' 핵심변수선언
Dim 월매출액, 주문량, 최대값 As Variant
'' 인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Left(Command, InStr(Command, " ")))

'' 최대값 초기화
최대값 = 0
'' 입력파일처리
Open "c:\c_it\data\abc02.txt" For Input As #1
    For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
       
        '' 변수저장
        월매출액 = Val(Mid(버퍼, 28, 5))
        주문량 = Val(Mid(버퍼, 13, 3))
      
                  
        ''최대값구하기
        If 최대값 < 월매출액 - 주문량 Then
            최대값 = 월매출액 - 주문량
        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