I want to make it so when cancel is used it exits the loop but I need the Input as a decimal. Thanks for any help.

Code:
Do

            txtItems.Text = intCounter.ToString

            intCounter = intCounter + 1

            msgInput = CDec(InputBox("Enter Item Price", "Item Price", ""))


            decSubTotal = msgInput + decSubTotal

            txtItemPrice.Text = msgInput.ToString("C2")



            txtSubTotal.Text = decSubTotal.ToString("C2")
            If msgInput = 0 Then
                Exit Do
            End If
        Loop

        decTax = CDec(decSubTotal * 0.065)

        decTotal = decTax + decSubTotal

        txtSalexTax.Text = decTax.ToString("C2")
        txtTotalSale.Text = decTotal.ToString("C2")