this is a program that calculates the French system but many decimal stain result and I just want to go 2

'here comes one decimal
capital = CDbl(Text1)
'This full well because it gives
tiempo = -Text2

'here come several decimal
primervalor = CDbl((1 - (1 + interes) ^ tiempo) / interes)

segundovalor = CDbl(capital / primervalor)

interesapagar = CDbl(capital * interes)

'calculo la primera amortizacion
amortizacion = CDbl(segundovalor - interesapagar)
cuadro.Col = 0
cuadro.Row = 1
cuadro.DataMatrix (1,0) = "1"

'lleno la primera fila y todo sale con varios decimales

cuadro.DataMatrix (1,1) = CDbl(amortizacion)
sumacapital = CDbl (sumacapital + amortizacion)
cuadro.DataMatrix (1,2) = CDbl( interesapagar)
sumainteres = CDbl(sumainteres + interesapagar)
cuadro.DataMatrix (1,3) = CDbl(interesapagar * 21 / 100)
sumaiva = CDbl(sumaiva + (interesapagar * 21 / 100))
cuadro.DataMatrix (1,4) = CDbl(amortizacion + interesapagar * 21 / 100 + interesapagar)
sumacuota = CDbl(amortizacion + (interesapagar * 21 / 100) + interesapagar)

as I have to do to leave such 125.00
saludos

usando Round



cuadro.DataMatrix (0,1) = Round(amortizacion,2)
sumacapital = Round(sumacapital + amortizacion,2)
cuadro.DataMatrix (0,2) = Round( interesapagar,2)
sumainteres = CDbl(sumainteres + interesapagar)
cuadro.DataMatrix (0,3) = Round(interesapagar * 21 / 100,2)
sumaiva = CDbl(sumaiva + (interesapagar * 21 / 100))

cuadro.DataMatrix (0,4) = Round(amortizacion + interesapagar * 21 / 100 + interesapagar,2)
sumacuota = CDbl(amortizacion + (interesapagar * 21 / 100) + interesapagar)


el unico problema es que cuando los decimales son .00 solo sale 1 decimal ejemplo, 123.00 sale 123.0 ya he probado algunas cosas pero sigue igual