[KamelArab]

إستخدم هذا الكود
Private Sub TextBox1_Change()
Dim lo As Single
lo = Val(TextBox1.Text)
If lo = 1 Then
TextBox2.Text = 400
Else
TextBox2.Text = 400 + (lo)
End If
End Sub