2. $100 = 78.60 Euros
$100 = 4,580.00 Rupees
$100 = 52.73 Pounds
$100 = 11,760.00 Yens

3. Private Sub radEuro_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radEuro.CheckedChanged

4. 730.00 Ringgits

5. The issue is that it pops out an error message when clearing. When doing error checking, you can also check to see if no radio buttons are checked and don't display an error message if that is the case. 

6. Exit sub can be removed, because e.handled already prevents any nonnumerics from being entered as input. 

7.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num1, num2, num3 As Integer
        ListBox1.Items.Clear()
        If (TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "") Then
            MsgBox("enter a #")
            Exit Sub
        End If
        num1 = TextBox1.Text
        num2 = TextBox2.Text
        num3 = TextBox3.Text
        SortTwo(num1, num3)
        SortTwo(num1, num2)
        SortTwo(num2, num3)
        ListBox1.Items.Add(num1)
        ListBox1.Items.Add(num2)
        ListBox1.Items.Add(num3)
    End Sub

8. Sean Henley