* Bug in Code VB:CInt must translate to Convert.ToInt32 and Int(double) to Math.Floor