Dim ans As Integer
Dim num(1) As Integer
num = Split(TextBox1.Text,"+")
ans = num(0) + num(1)