BAOL errore da Byte a Kb

[asch]

Ciao,

vorrei stampare il peso del file caricato in KB invece che in Byte ma ho mi da errore:
Come posso fare?

 PesoTotale = oUpload.Files("Size")
  	PesoTotale = Cint(PesoTotale)
	PesoTotale = PesoTotale/1000
  	PesoTotale = Round(PesoTotale,2)
	Response.Write(PesoTotale & " KB")

Microsoft VBScript runtime error '800a0006'

Overflow: 'Cint'