Hvorfor fejler denne med: overflow

Jeg kan ikke se hvad der er galt, men denne kodestump returnere: overflow til mig:

        size = 196                   
    Set pickompo = Server.CreateObject("AspImage.Image")
    pickompo.LoadImage server.mappath("./modul/dbase/baadpics") & "/" & filnavn
    ImageHeight = pickompo.MaxY
    ImageWidth = pickompo.MaxX
    pickompo.ImageFormat = 1
    pickompo.JPEGQuality = 75
    NewHeight = CLng(ImageHeight*size/ImageWidth)
    NewWidth = size
    pickompo.Resize NewWidth,NewHeight
        pickompo.FileName = server.mappath("./modul/dbase/baadpics") & "/storteaser_" & filnavn
        pickompo.SaveImage       
        set pickompo = nothing

hmmmm, tænkte jeg - det kunne da umuligt være rigtigt at den ville fejle på et så tyndt grundlag, så jeg prøvede dette i en ny fil:

<%
ImageHeight = "1024"
ImageWidth = "768"
size = "196"

    response.write Cint(ImageHeight * size / ImageWidth)
%>

Dette er der inden fejl i - den returnerer værdien: 261

Kan i se hvad der skulle være fejlen i den anden.... Jeg har fuldstændig set mig blind på det...