자꾸 ''''5''''런타임 오류가 발생해여..

인수 1값을 코딩하고 인수 1값을 복사해서 2값을 수정해 넣는데 자꾸 뜨네여..

복사 안하고 인수 2 값을 코딩해놓으면 괜찮을때도 있구여..

왜 그런가여..?

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