25강에서2번에 최대값구하는거에서여..ㅠㅠ
답은33060인데 저는 틀린게 없는거 같은데..443이 나와요 머가 틀린지 쫌 갈켜주세요~

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\abc05.txt" For Input As #1
        ''최대값최소화
        최대값 = 0
        For K = 1 To 인수2
        Line Input #1, 버퍼
        If K >= 인수1 Then
        ''변수저장
        제조포인트 = Val(Mid(버퍼, 20, 3))
        매출액 = Val(Mid(버퍼, 26, 3))
       
        ''최대값구하기
        If 제조포인트 >= 30 Then
         If 최대값 < 매출액 + 제조포인트 Then
         최대값 = 매출액 + 제조포인트
         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