debugging exercise:

Private Sub btnItemNumber_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnItemNumber.Click
Dim decCost As Decimal
Dim intCount As Decimal
decCost = Convert.ToDecimal(txtCost.Text)
Inventory(decCost, intCount)
End Sub
Private Sub Inventory(ByVal cost, ByVal count)
count +=3
cost *=1.3
End Sub

34