저번에 코딩을 했을때 이런 오류가 발생해서 해결했거든요~

근데 너무 오래전이라...

코딩한 부분에서요

인수1 에서 첫번째 command 부분에서 오류발생...

인수값도 입력했구요.....

다 괜찮은데......머가 문제인가요?

혹시나 해서 코딩한 것도 올립니다...

셤도 얼마 안남았는데...아직까지 이런걸로... 고민하다니....

한심해도 언능 답변해주세요ㅜㅜ

Option Explicit

''필수변수선언
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))
            거래포인트 = vak(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