코딩도 맞게 된거 같은데 답이 다르게 나오는 이유는 몬지..

강사님의 코딩을 다운받아 실행하면 맞는 답이 나오는데 제가 코딩한것을 실행하면 다른값이 나옵니다

 (인수를 672 772로 했을 경우  원래 답-->2186740   저의 답--->2188950 

어디가 틀렷는지 도져히 몰겟습니다..

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\abc02.txt" For Input As #1
  
   
        For i = i To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''''''''''''''''변수 저장
                서적분류코드 = Trim(Mid(버퍼, 5, 2))
                출판년월 = Val(Mid(버퍼, 7, 4))
                월매출액 = Val(Mid(버퍼, 26, 5))
               
               
                ''''''''표처리
                    Select Case 서적분류코드
                        Case "A1"
                            추가금액 = 560
                        Case "A2"
                            추가금액 = 720
                        Case "B2"
                            추가금액 = 620
                        Case "B3"
                            추가금액 = 510
                        Case "C3"
                            추가금액 = 430
                        Case "C4"
                            추가금액 = 790
                        Case "D4"
                            추가금액 = 150
                        Case "D5"
                            추가금액 = 210
                    End Select
                   
                If 출판년월 <= 2000 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