Uso de Select Case

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'CREAMOS LAS VARIABLES CON LAS QUE VAMOS A TRABAJAR.
        Dim opcion As String
        Dim numero1, numero2 As Integer
        Dim operacion As Double


        '
        If RadioButton1.Checked = True Then  'Si la opción del radiobutton está marcada
            opcion = "Sumar"                 'El valor de la variable será "Sumar"
        End If

        If RadioButton2.Checked = True Then
            opcion = "Restar"
        End If

        If RadioButton3.Checked = True Then
            opcion = "Multiplicar"
        End If

        numero1 = TextBox1.Text                 'Recoje el valor que pongamos en la caja de texto del formulario.
        numero2 = TextBox2.Text

        Select Case opcion
            Case Is = "Sumar"                   'En el caso de que el valor de la variable opcion sea Sumar.
                operacion = numero1 + numero2
            Case Is = "Restar"
                operacion = numero1 - numero2
            Case Is = "Multiplicar"
                operacion = numero1 * numero2
            Case Else                            'Si no se a dado ningún caso. 
                MsgBox("No has seleccionado ninguna operación")
                Exit Sub
        End Select

        MsgBox("El es resultado de la operación es : " + operacion.ToString)

    End Sub
End Class