Something

    Protected Sub bt_SubmitSale_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_SubmitSale.Click
        '
        'check the radiobutton list for a selected value
        '
        Dim paymenttype As Integer = 0

        If PanelChoice.SelectedValue = "Cash" And txt_CardNo.Text.Length > 0 Then
            paymenttype = 0
            FormMessage.Text = "Please remove number from Card Number box"

        ElseIf PanelChoice.SelectedValue = "Account" And txt_CardNo.Text.Length > 0 Then
            paymenttype = 1
            FormMessage.Text = "Please remove number from Card Number box"

        ElseIf PanelChoice.SelectedValue = "Debit" And txt_CardNo.Text.Length < 12 Or txt_CardNo.Text.Length > 16 Then
            paymenttype = 2
            FormMessage.Text = "Please enter a valid card number"

        ElseIf PanelChoice.SelectedValue = "Credit" And txt_CardNo.Text.Length < 12 Or txt_CardNo.Text.Length > 16 Then
            paymenttype = 3
            FormMessage.Text = "Please enter a valid card number"

        End If
        Dim SystemMgr As New eRaceSystem.eRace
        SystemMgr.ProcessFinalSale(txt_MemberId, txt_CardNo, paymenttype, GST, Total, DumpCart())
        FormMessage.Text = "Success. The database was updated with the provided information."
        InvoiceDetailsView.DataSource = Nothing
        InvoiceDetailsView.DataBind()
    End Sub