5런타임오류가 발생했다고 하고요..프로시저 호출또는 인수가 잘못되었다고 하는데..

Sub main()
''필수 변수 선언
Dim 인수1, 인수2, i, 버퍼 As Variant
''핵심변수선언
Dim 월매출액, 주문량, 합계(1000), j, Temp, Num 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
 For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
    ''변수저장
    월매출액 = Val(Mid(26, 5))
    주문량 = Val(Mid(13, 3))
    Num = Num + 1
    합계(Num) = 월매출액 - 주문량
   
    End If
Next i
    ''정렬 알고리즘
For i = 1 To Num
    For j = i To Num
   
    If 합계(i) > 합계(j) Then
     Temp = 합계(j)
     합계(i) = 합계(j)
     합계(j) = Temp
    End If
    Next j
    Next i
   
   
   
   
Close #1

''출력 파일처리

Open "c:\c_it\data\ans1.txt" For Input As #2
Print #2, 인수1, 인수2, 합계(9)
Close #2
   
End Sub

위의 노란색이 자꾸..에러가 나는데..뭐 때문인지 좀 알려주세요..플리쥬..~~