'FixDouble(1.299, 2) --> 1.29 (Not 1.30)
Public Shared Function FixDouble(ByVal number As Double, ByVal digits As Integer) As Double
Dim x As Integer = 10 ^ digits
'Fixed Bug 0.8 --> 0.79
Return Microsoft.VisualBasic.Conversion.Fix(number + .0) * x) / x
'Return Microsoft.VisualBasic.Conversion.Fix((number + CDbl("0.00")) * x) / x
'Return Microsoft.VisualBasic.Conversion.Fix((number + CDbl("0." & 1.ToString("D" & digits + 1))) * x) / x
End Function