문법공부하고 지금 막 실제로 혼자서 코딩해봤는데요

계속오류가 생겨서..경로지정에 문제가 있다고 나오는데 어디가 틀리거예요??입력처리부분에서 오류가 생기는데...........

Option Explicit

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
칠안남았는데 큰일이네욤..ㅜㅜ