Private Sub Command1_Click()
    a = Text1.Text
    b = Text2.Text
    c = a + b
    MsgBox c
 
    Dim d As Integer
    Dim e As Integer
    Dim f As Integer
 
    d = Text1.Text
    e = Text2.Text
    f = d + e
    MsgBox f
End Sub