Hola
lo puedes hacer asi:
Primero --> hayas el 30% del numero que tienes en la variable X.
x=70
tantoporciento = (x * 30) / 100
msgbox tantoporciento
Segundo -> Restas ese numero a la variable X.
resultadoresta = (x - tantoporciento)
Te pongo un ejemplo con 2 botones(commandbutton) y un textbox
Cita: Dim x, tantoporciento, resultadoresta
Private Sub Form_Load()
Text1.Text = 70
Command1.Caption = "Obtener el 30%"
Command2.Caption = "Restar el 30%"
End Sub
Private Sub Command1_Click()
x = Text1.Text
tantoporciento = (x * 30) / 100
MsgBox "el 30% de " & x & " es: " & tantoporciento
End Sub
Private Sub Command2_Click()
resultadoresta = (x - tantoporciento)
Text1.Text = resultadoresta
End Sub
salu2