호텔 할인요금 3번문제거든요..

소스틀린게 없는 것 같은데 자꾸 값이 다르게 나오네요...

답변 부탁드립니다..^^

Sub main()
''필수 변수 선언
Dim 인수1, 인수2, i, 버퍼 As Variant

''핵심 변수 선언
Dim 예약일자, 누적점수, num As Variant

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

''입력파일 처리
Open "c:\c_it\data\abcd0001.txt" For Input As #1
 
 For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
    ''변수저장
    예약일자 = Val(Mid(버퍼, 13, 2))
    누적점수 = Val(Mid(버퍼, 40, 5))
   
    ''누적점수가 3인 배수의 자료들의  건수
    If 예약일자 >= 15 And (누적점수 Mod 3) = 0 Then
        num = num + 1
    End If
   
   
   
   End If
 Next i
 ''정렬
 
 
Close #1

''출력파일 처리
Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, num
Close #2

End Sub