처음부터 막히니 너무나도 답답합니다. 

맨처음 예제인 거래처관리를 몇번째 코딩해보고 있는데요.

강사님이 제시하신 4가지 샘플대로 답이 안나오고 있습니다.

뭐가 문제일까요???

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