Add+Numbers+Source+Code+Listing

Dim Num1 As Integer Dim Num2 As Integer Dim Answer As Integer

Num1 = Val(No1Field.Text) Num2 = Val(No2Field.Text)

Answer = Num1 + Num3 AnswerField.Text = Str(Answer)