Help with Code

[azayas]

Hi there, I am trying to get the calculation done in the Function "OtherCharges" into a module to do calculation. I keep coming accross errors. When I fix one thing another is mysteriously not functioning any longer. HELP! This is an assignment due this week. I am sure I have more than one issue here, I am just learning.

Here the form I am trying to get the data from. The specific issue is that I must get the user input from the text box to the module. One error I get is with the variable "decAlt" I am told an error bc of string to boolean. Second, on the variable "dtmSystemDate"

Public Class frmAlterations
 
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim decAlter As Decimal
        decAlter = OtherCharges()
 
        frmMain.lblOther.Text = decAlter.ToString("c")
 
        If radHemSimple.Checked Then
            frmMain.lstProducts.Items.Add("Hem, Simple")
        ElseIf radHemMultipleLayers.Checked Then
            frmMain.lstProducts.Items.Add("Hem, Multiple Layers")
        ElseIf radHemComplex.Checked Then
            frmMain.lstProducts.Items.Add("Hem, Complex")
 
            CalculatePlan()
        End If
 
        If radBustleShort.Checked Then
            frmMain.lstProducts.Items.Add("Bustle, Short")
        ElseIf radBustleMedium.Checked Then
            frmMain.lstProducts.Items.Add("Bustle, Medium")
        ElseIf radBustleLong.Checked Then
            frmMain.lstProducts.Items.Add("Bustle, Long")
 
            CalculatePlan()
        End If
 
        If radSteamSimple.Checked Then
            frmMain.lstProducts.Items.Add("Steam Gown, Simple")
        ElseIf radSteamingMultipleLayers.Checked Then
            frmMain.lstProducts.Items.Add("Steam Gown, Multiple Layers")
        ElseIf radSteamingComplex.Checked Then
            frmMain.lstProducts.Items.Add("Steam Gown, Complex")
 
            CalculatePlan()
        End If
 
        If IsNumeric(txtAdditionalCosts.Text) = True Then
            frmMain.lstProducts.Items.Add(txtAdditionalCosts.Text)
            ' frmMain.lstProducts.Items.Add("Additional Costs")
            'frmMain.lblSubtotal.it(txtAdditionalCosts.Text)
        End If
        
    End Sub   
 
    Function OtherCharges() As Decimal
        Dim decCostOfOther As Decimal = 0
        Dim intAlterations As Decimal = 0
 
        If IsNumeric(txtAdditionalCosts.Text) = True Then
            decCostOfOther = (CDec(txtAdditionalCosts.Text))
        ElseIf IsNumeric(txtAdditionalCosts.Text) = False Then
            decCostOfOther = 0
            CalculatePlan()
        End If
 
        Return decCostOfOther
 
        CalculatePlan()
      
        End Function
 
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
End Class

Here is the Module I created a new variable "decAlt" to try this process.

Module BridalBoutiqueModule
    Const decTAX_RATE As Decimal = 0.06D    ' Tax rate.
 
    Public Sub CalculatePlan()
 
        ' Declare variables used in the calculation
        Dim decSubtotal As Decimal = 0
        Dim decTax As Decimal = 0
        Dim decTotal As Decimal = 0
        Dim decAmntDueToday As Decimal = 0
        Dim decDiscountRate As Decimal = 0
        Dim decDiscount As Decimal = 0
        Dim decDiscountRates As Decimal = 0
        '  Dim decOther As Decimal = 0
        Dim dtmSystemDate As Date = Now
        dtmSystemDate = dtmSystemDate.AddDays(60)
 
        ' Calculate the subtotal and shipping by
        ' going over the items in the shopping cart and
        ' adding their values.
        Dim intCount As Integer
        For intCount = 0 To (frmMain.lstProducts.Items.Count - 1)
            Select frmMain.lstProducts.Items(intCount).ToString()
                Case "Alyce Style: 7128 Price: $1807.00"
                    decSubtotal += 1807D
                Case "Alyce Style: 7131 Price: $907.00"
                    decSubtotal += 907D
                Case "Alyce Style: 7132 Price: $777.00"
                    decSubtotal += 777D
                Case "Alyce Style: 7135 Price: $1297.00"
                    decSubtotal += 1297D
                Case "Alyce Style: 7141 Price: $1207.00"
                    decSubtotal += 1207D
                Case "Bari Jay Style: 2011 Price: $260.00"
                    decSubtotal += 260D
                Case "Bari Jay Style: 69934 Price: $578.00"
                    decSubtotal += 578D
                Case "Bari Jay Style: 69936 Price: $460.00"
                    decSubtotal += 460D
                Case "Bari Jay Style: 69941 Price: $330.00"
                    decSubtotal += 330D
                Case "Cassablanca Style: 1994 Price: $1700.00"
                    decSubtotal += 1700D
                Case "Cassablanca Style: 1995 Price: $1463.00"
                    decSubtotal += 1463D
                Case "Cassablanca Style: 1998 Price: $1287.00"
                    decSubtotal += 1287D
                Case "Cassablanca Style: 2000 Price: $1229.00"
                    decSubtotal += 1299D
                Case "Cassablanca Style: 2003 Price: $995.00"
                    decSubtotal += 995D
                Case "Davinci Style: 8435 Price: $949.00"
                    decSubtotal += 949D
                Case "Davinci Style: 8439 Price: $507.00"
                    decSubtotal += 507D
                Case "Davinci Style: 8442 Price: $837.00"
                    decSubtotal += 837D
                Case "Davinci Style: 8445 Price: $629.00"
                    decSubtotal += 629D
                Case "Hem, Simple"
                    decSubtotal += 80D
                Case "Hem, Multiple Layers"
                    decSubtotal += 120D
                Case "Hem, Complex"
                    decSubtotal += 200D
                Case "Bustle, Short"
                    decSubtotal += 30D
                Case "Bustle, Medium"
                    decSubtotal += 60D
                Case "Bustle, Long"
                    decSubtotal += 85D
                Case "Steam Gown, Simple"
                    decSubtotal += 35D
                Case "Steam Gown, Multiple Layers"
                    decSubtotal += 55D
                Case "Steam Gown, Complex"
                    decSubtotal += 80D
                Case "Dessy Style: 2796 Price: $306.00"
                    decSubtotal += 306D
                Case "Dessy Style: 2805 Price: $286.00"
                    decSubtotal += 286D
                Case "Dessy Style: 2806 Price: $351.00"
                    decSubtotal += 351D
                Case "Dessy Style: 2801 Price: $309.00"
                    decSubtotal += 309D
                Case "Dessy Style: 2805 Price: $286.00"
                    decSubtotal += 286D
                Case "Dessy Style: 2806 Price: $351.00"
                    decSubtotal += 351D
                Case "Dessy Style: 2804 Price: $257.00"
                    decSubtotal += 257D
                Case "Dessy Style: 2805 Price: $286.00"
                    decSubtotal += 286D
                Case "Dessy Style: 2806 Price: $351.00"
                    decSubtotal += 351D
                Case "Dessy Style: 2811 Price: $299.00"
                    decSubtotal += 299D
                Case "Dessy Style: 2812 Price: $299.00"
                    decSubtotal += 299D
                Case "Dessy Style: 2813 Price: $273.00"
                    decSubtotal += 273D
           
            End Select
        Next intCount
 
        If decSubtotal > 1800D Then
            decDiscountRate = 0.1
        End If
              
        Dim decAlt As Decimal
        'decAlt = frmAlterations.OtherCharges()   
 
        ' Calculate tax and total.
        decTax = decSubtotal * decTAX_RATE
        decTotal = decSubtotal + decTax + decAlt
 
        decAmntDueToday = decTotal / 2
        decDiscount = decDiscountRate * decSubtotal
 
        With frmMain
 
            .lblSubtotal.Text = decSubtotal.ToString("c")
            .lblTax.Text = decTax.ToString("c")
            .lblTotal.Text = decTotal.ToString("c")
            .lblNextPayment.Text = dtmSystemDate.ToString("d")
            .lblAmountDueToday.Text = decAmntDueToday.ToString("c")
            .lblDiscount.Text = decDiscount.ToString("c")
        End With
 
    End Sub
End Module

[cicatrix]

Care to share what this is supposed to do? It seems to me that this is some kind of a 'shopping cart' which uses some list of merchandise and calculates the total cost of an order.
The one thing I do not understand is why all prices and items are hardcoded? Isn't that inconvinient? Moreover, you store prices and products separately which in real life would cause a mess of things. People use databases for that or at least some external storage (text files) to store the data.

[azayas]

Yes, this is a shopping cart. The prices for specific items is defined however my problem is when I am trying to take text input from the "frmAlterations" for additional non specified costs I get errors or simply cannot get it to work. That is what I am having the issue with. This is an assignment for an additional class I am taking, an intro course to VB.