How to make calculator from VB6

Dim a as integer
Dim b as integer
Dim sum as integer


privet sub CmdAdd_click
a = txt1.text
b = txt2.text
sum = a+b
txt3.text = sum

end sub