Here is one I use, and keeps the rounding format and digits intact

Function RoundUp(ByVal d As Double, digits As Integer) As Single Dim result As Single

result = Math.Round(d, digits)
If result >= d Then
    RoundUp = result
Else
    RoundUp = result + (1 / (10 ^ digits))
End If

End Function