25강 공장제조관리 3번 소스코딩해봤는데요..

답은 안나오고.. 200만 나오네요.. 어디가 문제인지 모르겠어요

Sub main()

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

''핵심 변수 선언
Dim 거래코드, 추가포인트, 제조구분, 매출액, 합계 As Variant

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

''입력파일처리
Open "c:\c-it\data\abc05.txt" For Input As #1

  For k = 1 To 인수2
    Line Input #1, 버퍼
    If k >= 인수1 Then
   
   
    ''변수 저장
     거래코드 = Trim(Mid(버퍼, 19, 1))
     제조구분 = Trim(Mid(버퍼, 7, 1))
     매출액 = Val(Mid(버퍼, 26, 3))
    
     ''표처리
     Select Case 거래코드
            Case "A"
               추가포인트 = 5
             Case "B"
               추가포인트 = 10
             Case "C"
               추가포인트 = 15
                             
     End Select
    
     ''합계 구하기
     If 제조구분 = "B" Then
            합계 = 합계 + 매출액 + 추가포인트
           
      End If

   
    End If
   
 
  Next k
 

Close #1

Open "c:\c-it\data\ans07.txt" For Output As #2

Print #2, 인수1, 인수2, 합계

Close #2

End Sub