Ocaya_DiscountCalculator

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.TextLength = 0 Then
            MessageBox.Show("Please input a value")
        Else
            If IsNumeric(TextBox1.Text) Then
                Dim A As Integer
                Dim B As Integer
                A = TextBox1.Text
                If RadioButton1.Checked Then
                    B = A * 0.1
                    Label4.Text = "10%"
                    TextBox3.Text = A - B
                ElseIf RadioButton2.Checked Then
                    B = A * 0.2
                    Label4.Text = "20%"
                    TextBox3.Text = A - B
                ElseIf RadioButton3.Checked Then
                    B = A * 0.5
                    Label4.Text = "50%"
                    TextBox3.Text = A - B
                ElseIf RadioButton4.Checked Then
                    B = A * 0.75
                    Label4.Text = "75%"
                    TextBox3.Text = A - B
                Else
                    MessageBox.Show("Please select a value")
                End If
            Else
                MessageBox.Show("Please input a valid number")
            End If
        End If
    End Sub
End Class