beginner needs help code not working

[itsmecarlo]

Hi everyone I am trying to create an invoice where the form as input and output labels, But when i run it i get no errors but the lables don't output, its obviously the code can anyone help

 Private Sub cmdAmountDue_Click(sender As Object, e As EventArgs) Handles cmdAmountDue.Click
        '1.Declare Variables
        Dim strCustomerName As String
        Dim strElectricalItem As String
        Dim decUsualPrice As Decimal
        Dim intUnitsBought As Integer
        Dim intDeliveryDistance As Integer
        Dim decTotalPrice As Decimal
        Dim decReductionAvailable As Decimal
        Dim decPriceAfterReduction As Decimal
        Dim decDeliveryCharge As Decimal
        Dim decAmountDue As Decimal
        Dim decVatAmount As Decimal
        Const decVAT As Decimal = 0.21

        '2. Input Values
        strCustomerName = txtCustomerName.Text
        strElectricalItem = txtElectricalItem.Text
        decUsualPrice = txtUsualPrice.Text
        intUnitsBought = txtUnitsBought.Text
        intDeliveryDistance = txtDeliveryDistance.Text


        '3. Calculate Total Price
        decTotalPrice = intUnitsBought * decUsualPrice

        '4. calculate reduction Available
        decReductionAvailable = Val(lblReductionAvailable.Text)
        Select Case decUsualPrice
            Case 0 To 200
                decReductionAvailable = decUsualPrice * 0.2
            Case 201 To 400
                decReductionAvailable = decUsualPrice * 0.25
            Case Is > 400
                decReductionAvailable = decUsualPrice * 0.3
        End Select

        ' 5 Calculate Price after Reduction
        decPriceAfterReduction = decTotalPrice - decReductionAvailable

        decVatAmount = decPriceAfterReduction * decVAT
        decAmountDue = decPriceAfterReduction + decVatAmount

        If intDeliveryDistance <= 20 Then
            decDeliveryCharge = 2.0
        ElseIf intDeliveryDistance > 20 Then
            decDeliveryCharge = 2.5
        End If

        decTotalPrice = FormatCurrency(lblTotalPrice, 2)
        decReductionAvailable = FormatCurrency(lblReductionAvailable, 2)
        decPriceAfterReduction = FormatCurrency(lblPriceAfterReduction, 2)
        decVatAmount = FormatCurrency(lblVAT, 2)
        decDeliveryCharge = FormatCurrency(lblDeliveryCharge, 2)
        decAmountDue = FormatCurrency(lblAmountDue, 2)