초급 문제 풀이 에서..

(모든 문제풀이에서 이런 오류 메시지가 뜨는데요...

그래서, 아직 한 문제도 제대로 못 풀어봤습니다...ㅠ.ㅠ)

"5 런타임 오류발생

프로시저 호출 또는 인수가 잘못되었습니다..." 라고 오류 메시지가 뜨는데

이유를 모르겠네요.

디버그 해보면,

인수처리 부분,

인수2 = Val(Mid(Command, InStr(Command, " "))) 에

노란색으로 오류 부분을 표시하는데...

mid 함수에 문제가 있는 거 같습니다...

제가 가지고 있는 비베 프로그램에 문제가 있는 걸까요?

코딩 내용(예를 들면)

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