Private Sub void_Click()
Label10.Caption = Label10.Caption - currentprice
Label12.Caption = (Label10.Caption * 0.14)
Label6.Caption = Label10.Caption * 1.14
If Label6 < currentprice Then
Label6 = 0
Label10 = 0
Label12 = 0
End If
End Sub