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\abc02.txt" For Input As #1
        최대값 = 0
        For K = 1 To 인수2
            Line Input #1, 버퍼
                If K >= 인수1 Then
                ''''''''변수저장
                월매출액 = Val(Mid(버퍼, 26, 5))
                주문량 = Val(Mid(버퍼, 13, 3))
               
                ''''''''최대값
                    If 최대값 < 월매출액 - 주문량 Then
                        최대값 = 월매출액 - 주문량
                    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

이것도 다시 붙혀넣기 하니까 되는데

도대체 왜그런거죠

아까는 아무리해도 결과값이 다르던데