Visual Basic - Calculos automático IVA e IRPF

BUenos días


Me gustaría que al abrir una nueva factura ya me vengan predefinido los valores del IRPF e IVA y así los campos calculados asociados a mis cbos ya aparezcan calculados. Es defir predefinir con valor 15 y 21 los valores asociados a mis cbos de IRPF e IVA y así obtener los valores asociados a estos sin tener que volver a marcalos en mi cbo

Para el calculo del IVA e IRPF en cada factura tengo esta estructura

Private Sub cboirpf_AfterUpdate()
Dim virpf, vretent, vbase As Integer

virpf = Nz(Me.cboirpf.Value, 0)
vbase = Nz(Me.BASE.Value, 0)

vretent = vbase * (virpf / 100)

Me.RETENCION.Value = vretent
End Sub

--------------------------------------------------------------------

Private Sub CBOIVA_AfterUpdate()
Dim viva, vtotaliva, vbase, vtotalgasto, vretent, virpf As Integer

viva = Nz(Me.CBOIVA.Value, 0)
vtotaliva = Nz(Me.Presupuesto_sin_IVA.Value, 0)
vbase = Me.BASE.Value
vtotaliva = vbase * (viva / 100)

Me.Presupuesto_sin_IVA.Value = vtotaliva


'vtotaliva = Nz(Me.[GASTO sin IVA].Value, 0)


virpf = Nz(Me.cboirpf.Value, 0)
vbase = Nz(Me.BASE.Value, 0)

vretent = vbase * (virpf / 100)

Me.RETENCION.Value = vretent


vtotalgasto = vbase + vtotaliva
Me.TOTAL.Value = vtotalgasto
Me.[Total Propuestagasto].Value = vbase - vretent + vtotaliva



Espero que alguien me pueda ayudar

Esto no es VisualBasic