영진교재 거래처 관리 3번 문제인데요..

자꾸 결과값이 다르게 나오네요...어디가 틀린건지요...알려주세요..

 185  442  28

185 442 3772  가 나와야 합니다.

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(버퍼, 18, 1))
이익포인트 = Val(Mid(버퍼, 20, 3))
거래포인트 = Val(Mid(버퍼, 27, 3))
    
''''''''''''''''표처리 및 합계

Select Case 분류코드

Case Is = "A"
 추가포인트 = 5
Case Is = "B"
추가포인트 = 15
Case Is = "C"
추가포인트 = 20

End Select

If 이익포인트 >= 20 Then

합계 = 거래포인트 + 추가포인트

End If
End If
Next i

close #1

   
Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계

close#2

End Sub