VB6 Ceiling Function

Ceiling - The integer equal or higher than a given value ' Returns the integer equal or higher than its argument

Function Ceiling(Number As Double) As Long
    Ceiling = -Int(-Number)
End Function

Originally from [Link]