[بسام الهويدي]

Dim q As Integer = 1
q = q + Val(TextBox3.Text)
TextBox3.Text = Val(q)