저는 할 때 마다 5번 오류가 뜨고

인수 1, 2를 프로젝트 속성창에 입력해도 결과값은 아무것도 안나오는데

왜그런 건가요? ㅠㅠ

그래서 검산도 못하고

그냥 맞는지 틀리는지 소스코딩만 하고 있어요

소스코딩 시작하기 전에

먼저 프로젝트 속성창에 인수 100 200을 입력하고 해야하나요?

가르쳐주세요~

Option Explicit

Sub main()
    ''''필수변수선언
    Dim 인수1, 인수2, 버퍼, i As Variant
   
   
    ''''핵심변수선언
    Dim 제조등급, 매출액, 판매량, 제조포인트, 합계(1000), Temp, Num, j As Variant
   
   
    ''''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''입력파일처리
    Open "c:\c_it\data\abc05.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''''변수저장
                제조등급 = Trim(Mid(버퍼, 29, 1))
                매출액 = Val(Mid(버퍼, 26, 3))
                판매량 = Val(Mid(버퍼, 15, 3))
                제조포인트 = Val(Mid(버퍼, 20, 3))
                ''''합계구하기
                If 제조등급 = "C" And 매출액 >= 80 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