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

거래처관리(초급-1번에서요..........)

5-런타임오류

프로시저호출또는 인수가 잘못되었다고 계속나오는데 왜그런건지 모르겠어요 ;;

음......... 강의하실때 교수님이 하시던.......코드랑 같은데........왜 저만 안되는건지 ;;

Sub main()

    ''필수변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심변수 선언
    Dim 이익포인트, 거래포인트, 단가, 합계, j, Num, Temp 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(버퍼, 20, 3))
        거래포인트 = Val(Mid(버퍼, 27, 3))
        단가 = Val(Mid(버퍼, 12, 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\abc0001.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계(5)
 Close #2
End Sub