Option Strict On

Public Class mainForm

   Dim m_countSalesInteger As Integer

   Private Sub calculateButton_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles calculateButton.Click

       'Dimension variables
       Dim quantityInteger As Integer
       Dim subTotalDecimal As Decimal
       Dim taxDecimal As Decimal
       Dim totalPriceDecimal As Decimal

       quantityInteger = Integer.Parse(quantityTextBox.Text)
       subTotalDecimal = quantityInteger * 4.95D
       taxDecimal = subTotalDecimal * 0.09D
       totalPriceDecimal = taxDecimal + subTotalDecimal

       totalPriceLabel.Text = FormatCurrency(totalPriceDecimal)

       m_countSalesInteger = m_countSalesInteger + 1


       'Capture quantity from textbox and multiply by 4.95
       'totalPriceLabel.Text =
FormatCurrency(Integer.Parse(quantityTextBox.Text) * 4.95D)


   End Sub
End Class