あまりよいプログラムとはいえないと思いますがぱっと浮かんだ例を紹介します。 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Select Case 0 
            Case Is <> InStrRev(TextBox1.Text, "+") 'Textbox1にもしも"+"が含まれいるか 
                Dim int1 As Integer = InStrRev(TextBox1.Text, "+") '"+"の位置の取得 
                Dim int2 As Integer = Mid(TextBox1.Text, 1, int1 - 1) '"+"より前の数字を取得 
                Dim int3 As Integer = Mid(TextBox1.Text, int1 + 1) '"+"より後の数字を取得 
                Label1.Text = int2 + int3 '+より前と後の数字を足す 
                'コメント以下省略 
            Case Is <> InStrRev(TextBox1.Text, "-") 
                Dim int1 As Integer = InStrRev(TextBox1.Text, "-") 
                Dim int2 As Integer = Mid(TextBox1.Text, 1, int1 - 1) 
                Dim int3 As Integer = Mid(TextBox1.Text, int1 + 1) 
                Label1.Text = int2 - int3 
            Case Is <> InStrRev(TextBox1.Text, "*") 
                Dim int1 As Integer = InStrRev(TextBox1.Text, "*") 
                Dim int2 As Integer = Mid(TextBox1.Text, 1, int1 - 1) 
                Dim int3 As Integer = Mid(TextBox1.Text, int1 + 1) 
                Label1.Text = int2 * int3 
            Case Is <> InStrRev(TextBox1.Text, "/") 
                Dim int1 As Integer = InStrRev(TextBox1.Text, "/") 
                Dim int2 As Integer = Mid(TextBox1.Text, 1, int1 - 1) 
                Dim int3 As Integer = Mid(TextBox1.Text, int1 + 1) 
                Label1.Text = int2 / int3 
        End Select 
    End Sub 
 
2つの数字を計算することは出来ますが、 
3つになるとエラーになってしまいます。 
あと+,-,*,/のみ対応です。