Visual Basic - sigo luchando con los decimales

Aquí copio la parte del programa que no se como redondear a dos decimales
Private Sub CmdCalcular_Click()
Dim MontoBoleta As Double, ImporteBruto As Currency
Dim Cofis As Currency, SubTotal As Currency
Dim Iva As Currency
TxtImporteBruto = Str(ImporteBruto)
MontoBoleta = Val(TxtMontoBoleta)
TxtImporteBruto = CCur(MontoBoleta / 1.23 / 1.03)
TxtCofis = CCur(TxtImporteBruto * 0.03)
TxtSubTotal = CCur(MontoBoleta / 1.23)
TxtIva = MontoBoleta - TxtSubTotal
End Sub
agradezco ayuda, recien empiezo.

Me parece que ayer te conteste, pero de todas formas aqui va la respuesta:

Private Sub CmdCalcular_Click()
Dim MontoBoleta As Double, ImporteBruto As Currency
Dim Cofis As Currency, SubTotal As Currency
Dim Iva As Currency
TxtImporteBruto = Str(ImporteBruto)
MontoBoleta = Val(TxtMontoBoleta)
TxtImporteBruto = Round(CCur(MontoBoleta / 1.23 / 1.03) ,2)
TxtCofis = Round(CCur(TxtImporteBruto * 0.03) ,2)
TxtSubTotal = Round(CCur(MontoBoleta / 1.23) ,2)
TxtIva = MontoBoleta - TxtSubTotal
End Sub

Tambien puedes utilizar FormatCurrency(12345.6789,2).
respuesta= 12345.68

Espero te sirva

Para redondear se utiliza la funcion format

a=5678.23679
b = Format(a, "##,##0.00")
Debe salir 5,678.24
y con a=.563 debe salir 0.56

También puedes utilizar FormatNumber.

Saludos Pola