Private Sub Command1_Click() If InStr(Text1.Text, "+") <> 0 Then a = Left(Text1.Text, InStr(Text1.Text, "+") - 1) b = Mid(Text1.Text, InStr(Text1.Text, "+") + 1) Print Val(a) + Val(b) End IfEnd Sub