어느부분에서 잘못되었는지 모르겠습니다.

결과값이 계속 0 이나오네요

서적매출액관리에서 1번문제는 오름차순 배열로 풀어서 9번째를 구했는데 ,

여기에서도 똑같이 오름차순 부등호만 바꾸어서 내림차순으로 하고 1번째를 구하면 안되는 것인가요?

출력값만 바꾸어서  차이(9)를 -> 차이(1)로 바꾸면 답이 틀립니다.

(project 설정은 했습니다)

==========================================

Option Explicit

Sub main()

Dim 인수1, 인수2, 버퍼, i As Variant

Dim 월매출액, 주문량, 최대값 As Variant
최대값 = 0
  
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

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(26, 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