Public Function RoundUpNormal(ByVal Value As Double, Optional ByVal NumDigits As Integer = 2) As Double
    Dim Factor As Double
    Factor = 10 ^ NumDigits
    RoundUpNormal = Int(Value * Factor + 0.5) / Factor
End Function