Dim a As IntegerDim b As Integera = Val(Mid(Text1.Text, 1, 1))b = Val(Mid(Text1.Text, 3, 1))Text1.Text = a + b
