turning for... next statement into a for do...loop statement?

It works perfectly except now the message box "Please enter the original price." shows up right after I hit the calculate button vice when there is no numbers enter.

        Dim originalPrice As Double
        Dim discountPrice As Double
        Dim discountRate As Double = 0.1

        'try/catch and block
        Try


            'clear the contest of the uiDiscPricesLabel control
            Me.uiDiscPricesLabel.Text = ""

            'if the textbox contains data, then assign input to
            'variable and display the discounted prices

            If Me.uiOriginalTextBox.Text <> "" Then
                originalPrice = Double.Parse(Me.uiOriginalTextBox.Text)

                Do While discountRate <= 0.3
                    discountPrice = originalPrice - originalPrice * discountRate
                    Me.uiDiscPricesLabel.Text = Me.uiDiscPricesLabel.Text _
                        & discountRate.ToString("P0") & "     " _
                        & discountPrice.ToString("N2") & ControlChars.NewLine
                    discountRate = discountRate + 0.05
                Loop

                MessageBox.Show("Please enter the original price.", _
                    "Shoppers Haven", MessageBoxButtons.OK, _
                    MessageBoxIcon.Information)

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Shoppers Haven", MessageBoxButtons.OK, _
                MessageBoxIcon.Information)

        End Try

Thanks a lot Muflone.

you're welcome
Bye, Muf