기출문제1번 거래처 관리 문제인데요..

자료실에 올라와있는 소스자료 다운받아서 비교도 해봤는데, 뭐가 잘못됐는지 모르겠어요. 답이 자꾸 다르게 나오네요.ㅠ.ㅜ

제가 컴맹이라  여유있게 시작한다고 강의를 들었다가..시험 일주일 남겨놓고 실습을 해봤는데요. 첫번째 문제부터 답이 막히니까...너무 당황스러워요.ㅠ.ㅜ

아까 전화드렸는데..제가 좀 흥분해서..;;;말을 너무 빨리 한 거 같은거 있죠.

저같은 학생한테 전화 많이 오실텐데..친절히 받아주셔서 감사합니다~^^;

코딩 잘못된게 먼지 알려주시면 매우 감사할께요~~~***.즐거운 하루 되세요~~^^ 

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