아무리 봐도 정답하고 소스가 같게 입력되었거든요

1에서10 인수 직접 검산했을때도 값이 같게 나왔구요

근데 100 200 은 결과값이 약간 다르게 산정이 되는데 왜 그러는지 모르겠습니다

소스가 같은데 이런일이 있을수가 있을까요 선생님 제발 도와주세요 낼 셤인데 ㅜㅜ

Option Explicit

Sub main()
  ''필수변수선언
  Dim 인수1, 인수2, i, 버퍼 As Variant
 
  ''핵심변수선언
  Dim 통학코드, 영어점수, 수학점수, 학번(1000), 합계(1000), j, Temp, Num As Variant
 
  ''인수처리
  인수1 = Val(Left(Command, InStr(Command, " ")))
  인수2 = Val(Mid(Command, InStr(Command, " ")))
 
  ''입력파일처리
  Open "c:\c_it\data\res0105.txt" For Input As #1
    For i = 1 To 인수2
      Line Input #1, 버퍼
        If i >= 인수1 Then
         
          ''변수저장
          통학코드 = Trim(Mid(버퍼, 16, 1))
          영어점수 = Val(Mid(버퍼, 20, 3))
          수학점수 = Val(Mid(버퍼, 23, 3))
         
          ''배열변수구하기
          If 통학코드 = "A" Or 통학코드 = "B" Then
            Num = Num + 1
            합계(Num) = 수학점수 + 영어점수
            학번(Num) = Val(Mid(버퍼, 1, 6))
          End If
       
        End If
    Next i
 
    ''정렬(내림차순)(동일값 발생시 학번에 대하여 오름차순)
      For i = 1 To Num
        For j = i To Num
          If 합계(i) < 합계(j) Or _
             (합계(i) = 합계(j) And 학번(i) > 학번(j)) Then
            
             Temp = 합계(i)
             합계(i) = 합계(j)
             합계(j) = Temp
            
             Temp = 합계(i)
             합계(i) = 합계(j)
             합계(j) = Temp
            
          End If
        Next j
      Next i
   
  Close #1
 
  ''출력파일처리
  Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 학번(5)
  Close #2
End Sub