과년도 기출문제를 풀고 있는데요.

1번,2번은 결과값이 정확히 나오는데 3번과 4번의 결과값이 계속 다르게 나옵니다.

무엇이 문제인지....

====================================

문제:판매구분에 따른 추가 포인트는 다음과 같다.

판매구분  추가포인트

    A              5

    B             15

    C              20

위의 표를 참조하여 단가가 20 이상인 자료에 대하여 (단가+추가포인트)의 합계를

출력하시오.

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\Abc0105.txt" For Input As #1
        
      For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
       
      판매구분 = Trim(Mid(버퍼, 28, 1))
      단가 = Val(Mid(버퍼, 17, 5))
     
      If 판매구분 = "A" Then
         추가포인트 = 5
       ElseIf 판매구분 = "B" Then
         추가포인트 = 15
        ElseIf 판매구분 = "C" Then
         추가포인트 = 20
      End If
     
      If 단가 >= 20 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

틀린곳이 있나요?