R1 = WrapNumber(23)
r2 = WrapNumber(1000)
Log(PC)
Sub PC As BigDecimal
PCent.Initialize3(0)
Return PCent.Add(r2).Divide(WrapNumber(100)).Add(WrapNumber(1)).Multiply(R1)
End Sub
Sub WrapNumber (d As Double) As BigDecimal
Dim b As BigDecimal
b.Initialize(d)
Return b
End Sub