Visual basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
TextBox2.Text =Val(TextBox1.Text / 12.79)
MsgBox("se a convertido correctamente")
Else
If RadioButton2.Checked = True Then
TextBox2.Text = Val(TextBox1.Text / 16.95)MsgBox("se a convertido correctamente")
Else
If RadioButton3.Checked = True Then
TextBox2.Text = Val(TextBox1.Text / 0.16)MsgBox("se a convertido correctamente")
Else
If RadioButton4.Checked = True Then
TextBox2.Text = Val(TextBox1.Text / 20.18)MsgBox("se a convertido correctamente")
Else
If RadioButton5.Checked = True Then
TextBox2.Text =Val(TextBox1.Text / 1.64)

MsgBox("se a convertido correctamente")

End If

End If

End If

End IfEnd If

End Sub

Public Class Form1
Dim sum As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sum =0

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = TrueThen
sum = 45
TextBox1.Text = sum

End If
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
sum = 40
TextBox1.Text = sum

End If
End Sub

Private Sub...