Ceil function in VB6

VB Code:

Function Ceiling(n As Double) As Long


    If Not Int(n) = n Then


        Ceiling = Int(n) + 1


    Else


        Ceiling = n


    End If


End Function