cint overflow

hvorfor får jeg fejl:
cint overflow i linjen med ***************** efter?

'Del timer og minutter op på hver side af :
tid = split(session("sidstlog"), ":")
regtid = split(rs("Onlinetid"), ":")
nu = split((FormatDateTime(Now, vbShortTime)), ":")
'træk den overflødige tid fra
tid(0) = cint(nu(0)) - cint(tid(0)) **********************
tid(1) = cint(nu(1)) - cint(tid(1))
'Beregn nytid oveni registreret tid
strtimer = cint(tid(0)) + cint(regtid(0))
minutter = cint(tid(1)) + cint(regtid(1))
'hvis minutter (tid1) er en minus værdi omregn til timer
if minutter < 0 then
tid(1) = cint(tid(1)) + cint(60)
tid(0) = cint(tid(0)) - cint(1)
'Hvis minutter er mere end 60 læg 1 oveni timer
elseif minutter => cint(60) then
minutter = cint(minutter) / cint(60)
minutter = split(minutter, ",")
strtimer = cint(timer) + cint(minutter(0))
if minutter(1) = 0 then
minutter(1) = "0"
end if
minutter = left(minutter(1), 2)
end if