-Creamos el formulario e insertamos la configuración en el botón Calcular.
Public Class Form1 Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged End Sub Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim num1, num2, resultado As Integer 'Creamos las variables de los número de las cajas de texto y resultado. num1 = TextBox1.Text 'Recojemos el número introducido el la caja de texto. num2 = TextBox2.Text If (RadioButton1.Checked = True) Then 'Si el botón de Suma está marcado (True). resultado = num1 + num2 ElseIf (RadioButton2.Checked = True) Then 'Si el botón de resta está marcado. resultado = num1 - num2 End If MsgBox("El resultado es " + resultado.ToString) 'Mostramos en pantalla el resultado. End Sub End Class