Составить программу для решения задачи, используя оператор выбора Select-Case - Visual Basic .NET - Ответ 7312625

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim s As String = ""
        TextBox5.Clear()
        If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Then
            MessageBox.Show("Заполните все поля!", _
                      "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Try
                Select Case TextBox2.Text
                    Case "+" : TextBox5.Text = "Сложение"
                        s = Val(TextBox1.Text) + Val(TextBox3.Text)
                    Case "/" : TextBox5.Text = "Деление"
                        If Val(TextBox3) = 0 Then
                            MessageBox.Show("На ноль делить нельзя!", "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            s = Val(TextBox1.Text) / Val(TextBox3.Text)
                        End If
                    Case "-" : TextBox5.Text = "Вычитание"
                        s = Val(TextBox1.Text) - Val(TextBox3.Text)
                    Case "*" : TextBox5.Text = "Умножение"
                        s = Val(TextBox1.Text) * Val(TextBox3.Text)
                    Case Else
                        MsgBox("Неизвестная операция!") : Exit Sub
                End Select
                TextBox4.Text = TextBox1.Text & TextBox2.Text & TextBox3.Text & " = " & s
            Catch ex As Exception
                MessageBox.Show("Следут вводить целое число!", _
                  "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
 
        End If
    End Sub