como resto el 30% a una cantidad

[A.H.H]

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

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