수검프로그램으로 1번 풀어봤는데, 오류가 뜨지도 않고, 실행도 되는데
출력파일이 생성이 안됩니다.

일단 인수 100 200을 넣고 실행을 하면 잠깐 먼가 움직임이 있긴한데요..
c_it\data에 가서 ans1 을 열어보면 100 200 만 보일뿐 값이 안보입니다.

강의를 보면 인수처리나 변수저장이 잘못된거 같은데, 못찾겠습니다.
확인 부탁드려요...
토욜 셤이에요ㅠ.ㅠ

Sub Main()
''필수변수선언
Dim 인수1, 인수2, i, 버퍼 As Variant
 ''핵심변수선언
 Dim 이익포인트, 거래포인트, 합계(1000), 거래처번호(1000), temp, j, 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 단가 >= 50 Then
     ''인수저장
     이익포인트 = Val(Mid(버퍼, 20, 3))
     거래포인트 = Val(Mid(버퍼, 30, 3))
     ''합계구하기
     num = num + 1
     합계(num) = 이익포인트 + 거래포인트
     거래처번호(num) = Val(Mid(버퍼, 1, 6))
      End If
    Next i
   
   ''합계 내림차순or합계같음 and 거래처번호 오름차순
    For i = 1 To num
     For j = i To num
      If 합계(i) < 합계(j) Or _
         합계(i) = 합계(j) And 거래처번호(i) > 거래처번호(j) Then
        
         temp = 합계(i)
         합계(i) = 합계(j)
         합계(j) = temp
        
         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 i

End Sub