Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

        Dim lblOutputA As Double 'ClassA Output
        Dim lblOutputB As Double 'ClassB Output
        Dim lblOutputC As Double 'ClassC Output
        Dim lblOutputT As Double 'Total Output

        lblOutputA = CDbl(txtInputA.Text) * 15 'Calculates ClassA
        lblOutputA = lblOutputA.ToString("c")
        lblOutputB = CDbl(txtInputB.Text) * 12 'Calculates ClassB
        lblOutputB = lblOutputB.ToString("c")
        lblOutputC = CDbl(txtInputC.Text) * 9 'Calculates ClassC
        lblOutputC = lblOutputC.ToString("c")
        lblOutputT = CDbl(lblOutputA + lblOutputB + lblOutputC) 'Adds all classes to produce Revenue Total
        lblOutputT = lblOutputT.ToString("c")

    End Sub