* sub 또는 function이 정의되지 않았습니다. 오류가 나오는데요.

변수/배열변수 관련 확인을 했는데도 잘 못찾겠어요.

어느 부분에 오류인지 도움을 요청합니다.

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 = 합계(i)
                합계(i) = 합계(j)
                합계(j) = Temp
            End If
           
        Next j
    Next i
   
Close #1

''출력 파일 처리
Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(9)
   
Close #2

End Sub