문제가요..
제조등급이 A이고 제조구분이 B인 자료에 대한 매출액의 합계를 출력하시오
인데 제 코딩 어디가 틀렸는지 잘 모르겠어요ㅠ_ㅠ
결과값이 안뜨는데...
인수처리부분은 틀린게 없는데...-_-
좀 가르쳐주세요^-^;;






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\s0307151.txt" For Input As #1
       
      
       
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
               
                ''변수 저장
                제조등급 = Trim(Mid(버퍼, 27, 1))
                제조구분 = Trim(Mid(버퍼, 7, 1))
                매출액 = Val(Mid(버퍼, 24, 3))
           
                If 제조등급 = "A" And 제조구분 = "B" Then
                        합계 = 합계 + 매출액
                    End If
             End If
           
          
        Next K
       
     
    Close #1
   
    ''출력파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2
End Sub