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ì------------------