Overløb

Jeg er ved at lægge en ny counter på mit site, den virker hvis værdien er meget lille, men hvis jeg skriver 184577 (som min gamle tæller stod på)ind i tekstfilen som den gemmer i, får jeg denne fejl

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0006)
Overløb: 'Cint'

Scriptet ser sådan ud:

<%
Function Counter()
  Dir = Server.Mappath("counter/Counter.txt")
  Set File = CreateObject("Scripting.FileSystemObject")
  Set Count = File.OpenTextFile(Dir)
  Counter = Cint(Count.ReadLine)
  Count.Close
  If Session("Counter") = "" Then
    Session("Counter") = Counter
    Counter = Counter + 1       
    Set Count = File.CreateTextFile(Dir,true)
    Count.WriteLine(Counter)
    Count.Close
  End If
  Set File = Nothing
  Set Count = Nothing
End Function
%>