런타임 오류 62번이 계속 나옵니다

명령줄 인수 값은 잘 적었는데...

책보니 소스에서 시작줄,끝줄 코딩시" "사이에 공백을 한칸 주었는지 확인하라는데

무슨 말인지 모르겠어여...

근데여 문제에서 주어지는 txt파일 즉 천개의 값들요 그거 복사해서 c\c_it\data안에

넣어 놓고 문제 풀면 되는거 아닌가여...근데 첨에는 천개가 다들어 있다가여 나중에는

100 200 9 라는 것만 남아있어여...이게 문제인것 같은데...ㅜㅠ

한번 바주세여...

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\abc1115.txt" For Input As #1
         For i = 1 To 인수2
           Line Input #1, 버퍼      여기서 오류나여ㅜㅠ
              If i > 인수1 Then
             
                   영어점수 = Val(Mid(버퍼, 14, 3))
                   총점 = Val(Mid(버퍼, 23, 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\abc1115.txt" For Output As #2
         Print #2, 인수1, 인수2, 합계(5)
     Close #2
    
    
   End Sub