Programa que calcule la nomina de pago

No explicas el origen de los datos, por lo que supondré que lees el sueldo de un campo de texto de la pantalla (llamesmosle sueldo) y ejecutas el cálculo al pulsar un botón que, supongamos, se llama 'btnCalculaNeto' (por ponerle un nombre).
En tu código tendrías que poner:
sub btnCalculaNeto_Click()
    dim sueldo_Bruto as double
    dim sueldo_Neto as double
    dim porc_ARS as double
    dim porc_AFP as double
    dim porc_COOP as double
    dim imp_ARS as double
    dim imp_AFP as double
    dim imp_COOP as double
    sueldo_Bruto = me.salario_Bruto ' Copiamos del formulario a la variable el sueldo bruto
    if sueldo_Bruto <= 6000 then
        porc_ARS = 0.02
        porc_AFP = 0.03
        porc_COOP = 0.01
      else
        if sueldo_Bruto <= 8500 then ' Ya tiene que ser mayor que 6000 para entrar por el "else"
            porc_ARS = 0.03
            porc_AFP = 0.06
            porc_COOP = 0.04
          else ' No indicas cuales son cuando el sueldo es mayor de 8500. Pongo una burrada
            porc_ARS = 0.20
            porc_AFP = 0.30
            porc_COOP = 0.10
        end if           
    end if   
    ' Ya sabemos los porcentajes a descontar. Calculamos cada descuento redondeando a 2 decimales
    imp_ARS = round(sueldo_Bruto*porc_ARS,2)
    imp_AFP = round(sueldo_Bruto*porc_AFP,2)
    imp_COOP = round(sueldo_Bruto*porc_COOP,2)
    ' El sueldo neto será el bruto menos los descuentos
    sueldo_Neto = sueldo_Bruto - imp_ARS - imp_AFP - imp_COOP
    ' Presentamos el resultado en la ventana
' (supongamos que para ello tenemos 4 cuadros de texto llamados ARS, AFP, COOP y sueldoNeto)
    me.ARS = imp_ARS
    me.AFP = imp_AFP
    me.COOP = imp_COOP
    me.sueldoNeto = sueldo_Neto
    me.refresh ' Para actualizar lo que se ve en la ventana.
end sub