저는 문제를 스스로 푸는건 고사하고 풀이내용 그대로 적어봤는데도 오류메시지가 뜨는군요

제가 봐서는 선생님 자료 그대로 옮긴것 같은데, 대체 어디가 잘못되었다는건지...

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\abc0001.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''변수 저장
                단가 = Val(Mid(버퍼, 12, 3))
                이익포인트 = Val(Mid(버퍼, 20, 3))
                거래포인트 = Val(Mid(버퍼, 27, 3))
               
                If 단가 >= 50 Then
                    num = num + 1
                    합계(num) = 이익포인트 + 거래포인트
               
                End If
               
            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, 합계(5)
    Close #2
   
End Sub