Cita:
Iniciado por jsstoni 
https://msdn.microsoft.com/en-us/library/zx4t0t48.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2
muchas gracias por la respuesta, no sabia que eso se llamaba ceiling pero aqui igual les dejo un codigo que encontre para solucionarlo por si alguien necesita
Código:
Private Function Ceiling(ByVal X As Double) As Long
Ceiling = -Int(X * (-1))
End Function