Private Function RoundUpAmount(ByVal number As Double, ByVal digits As Integer) As Double

        Dim Temp As String
        Dim Temp2 As String
        Dim i As Integer
        Dim j As Integer
        Dim ResultValue As Double
        Dim Numbertemp As Double

        Temp = Convert.ToString(number)
        i = Temp.LastIndexOf(".")
        If (((Temp.Length - (i + 1)) <= digits) Or (i = -1)) Then Return number
        Temp2 = Temp.Substring(i + digits + 1, 1)
        j = Convert.ToInt32(Temp2)
        Numbertemp = Convert.ToDouble(Temp.Substring(0, i + digits + 1))

        If j = 5 Then
            ResultValue = Numbertemp + (1 / (Math.Pow(10, digits)))
        Else
            ResultValue = Math.Round(number, digits)
        End If
        Return ResultValue
    End Function