거래처관리 4번 문제  ''5런타임 오류 발생
Option Explicit

Sub main()

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