거래처관리(초급)까지 동강듣고 첨으로 혼자 풀어보았는데요

예상대로 바로 오류가,.,근데 뭐가 틀린건지 못찾겠어요..ㅠ.ㅠ

7일 셤인데 현 시점에서 이런 문제 해결 못하면 떨어지지 않을까요?? 직딩이라 시간도 없는데 훌쩍 ㅠ.ㅠ)

Sub main()

'''' 필수변수선언
Dim i, 인수1, 인수2, 버퍼 As Variant

'''' 핵심변수선언
Dim 단가, 매출액, 제조포인트, j, 합계(1000), Temp, num As Variant

'''' 인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

'''' 입력파일 처리
Open "c:\c_it\data\abc0501.txt" For Input As #1
    For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
   
'''' 변수저장
    단가 = Val(Mid(버퍼, 12, 3))
    매출액 = Val(Mid(버퍼, 26, 3))
    제조포인트 = Val(Mid(버퍼, 20, 3))
   
        If 단가 >= 30 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