100 200으로 주었을때 아무런 값도 안나옵니다.

다른 문제도 파워포인트에 나온대로 소스코딩을 하긴 했는데

여태까지 결과값을 한 번도 본적이 없습니다.

어떻게 해야 결과값을 볼 수 있을지 궁금합니다.

Option Explicit

Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 단가, 이익포인트, 거래포인트, j, temp, num, 합계(1000) 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 1 >= 인수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