Microsoft Visual Basic Question .VB

Fix the code: Private Sub btnCyberMonday_Tap(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCyberMonday.Tap Dim decPurchase As Decimal Dim intCount As Decimal decPurchase Convert.ToDecimal(txtCost.Txt) Inventory decPurchaseS, intCount End Sub Private Sub InventorylB al purchase, ByVal count) count t4 shop .0.7 End Sub