This is probably not a perfect implementation - but I hope it gives you some
ideas:

Public Function MyCeiling(dblInputVal As Double, dblCeiling As Double) As
Double

Dim dbltemp As Double
Dim lngtemp As Long
Dim dblOutVal As Double

lngtemp = Int((dblInputVal / dblCeiling))

dbltemp = (dblInputVal / dblCeiling)

If lngtemp < dbltemp Or lngtemp = 0 Then
dblOutVal = dblCeiling * (lngtemp + 1)
Else
dblOutVal = dblCeiling * lngtemp
End If

MyCeiling = dblOutVal

End Function