Fai un nuovo progetto è incolla questo codice:

'-------------taglia quì------------------
Dim iva

Private Sub Form_Load()
iva = 20
End Sub

Private Sub Text1_Change()

If Text1.Text = "" Then Exit Sub
Text2.Text = (Text1.Text * iva) / 100

End Sub
'---------fino a quì------------------