Hola, seria asi:

Private Sub cmdAceptar_Click()
Dim Descuento As Single

txtSalarioBruto.Text = txtHorasTrabajadas.Text * txtPagoPorHora.Text

If optPersonalEjecutivo.Value Then
Descuento = 0.20
End If

If optPersonalFabrica.Value Then
Descuento = 0.22
End If

If optPersonalStock.Value Then
Descuento = 0.25
End If

txtDescuento.Text = txtSalarioBruto.Text * Descuento

txtSalarioNeto.Text = txtSalarioBruto.Text - txtDescuento.Text
End Sub

Espero te sirva. Saludos.

__________________
directorio web fabrica pintura cirugia plastica depilacion definitiva extrusora aluminio consultoria en sistemas optimizador de cortes