실습 거래처등급 처음 문제풀이에요..4번문제 입니다.

선생님께서 하신대로

51과 281을 넣었는데 뒤에 아무런 숫자가 나오질 않네요ㅜㅜ

Option Explicit
Sub main()
    ''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
   
    ''핵심 변수 선언
    Dim 운송코드, 할인포인트, 거래처등급, 단가, 합계 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
            ''변수 저장
            운송코드 = Trim(Mid(버퍼, 19, 1))
            단가 = Val(Mid(버퍼, 12, 3))
            거래처등급 = Val(Mid(버퍼, 23, 1))
            ''표처리
            Select Case 운송코드
                Case "A"
                    할인포인트 = 5
                Case "B"
                    할인포인트 = 15
                Case "C"
                    할인포인트 = 20
                           
                   
            End Select
           
            If 거래처등급 = "B" Then
                합계 = 합계 + 단가 * 할인포인트
                End If
            End If
          
           
        Next i
       
        ''정렬 알고리즘
       
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2
End Sub