1. 거래처 관리 문제 푸는데서요 3번째 문제요

전부 입력하고 검산할 때

값을 185 442 입력했는데

답이 442 만 나오면 잘못 된건데

아무리 봐도 머가 잘못됐는지 모르겠는데

왜 그럴까요??

Option Explicit

Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, 버퍼, i As Variant
   
    ''핵심 변수 선언
    Dim 분류코드, 거래포인트, 추가포인트, 합계, 이익포인트 As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수1 = 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(버퍼, 27, 3))
    이익포인트 = Val(Mid(버퍼, 20, 3))
        ''표처리
        Select Case 분류코드
            Case "A"
                추가포인트 = 5
            Case "B"
                추가포인트 = 15
            Case "C"
                추가포인트 = 20
        End Select
        ''합계 구하기
            If 이익포인트 >= 20 Then
                합계 = 합계 + 거래포인트 + 추가포인트
            End If
               
            End If
        Next i
       
    ''출력 파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2
       
End Sub