아까 전화드렸던 학생인데요

결과값이 1씩 작게 나옵니다

답변 부탁^^

Option Explicit

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\abc0001.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))
                    ''Num구하기
                    If 예약일자 >= 16 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