Option Explicit

Sub main()
    ''필수 변수 선언
        Dim 인수1, 인수2, k, 버퍼 As Variant
       
    ''핵심 변수 선언
        Dim 단가, 이익포인트, 거래포인트, 합계(1000), p, temp, num As Variant
       
    ''인수 처리
        인수1 = Val(Left(Command, InStr(Command, " ")))
        인수2=  val(left(command, instr(command, " ")))
       
    ''입력 파일 처리
        Open "c:\c_it\data\ansabc0001.txt" For Input As #1
            For k = 1 To 인수2
                Line Input #1, 버퍼
                    If 단가 >= 50 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 k
                    ''정렬
                        For k = 1 To num
                            For p = k To num
                                If 합계(k) < 합계(p) Then
                                End If
                            Next p
                           
                        Next k
        Close #1
    ''출력 파일 처리
        Open "c:\c_it\data\ans1.txt" For Output As #1
        Print #2, 인수1, 인수2, 합계(5)
   
End Sub
 다 저장한 후 실행해보면은요, 오류가 발생해요. 그래서 디버그하면 "인수2"부분이 노랗게 표시가되거든요. 대체 뭐가 잘못됐건지 좀 알려주세요. 그리고 자료실에서 다운 받은것과비교를 해도 이상이 없음은 물론이거니와 , 자료실에서 다운받은 자료를 실행할려구 해도 같은 오류가 발생하네요. 1번이 안 풀리니까, 진도를 나갈수가 없어요. 부탁드립니다.