my code won't keep a running total Im stumped

I used to run a daily raffle where customers would buy numbers for $5.00 and my old code kept a running total less 5%. I changed the format of the raffle to weekly with different amounts less 5%. I now charge $2 for one ticket, $5 for three tickets, and $10 for ten tickets. But for the life of me I can't get my vba code to keep a running total. any direction would be greatly appreciated here is the code

Please Login or Register  to view this content.

Please upload a workbook or a representative cut down copy, anonymised if necessary. It is always easier to advise if we can see your request in its context.

Show a before and after situation with manually calculated results, explaining which information is data and which is results, and if it's not blindingly obvious how you have arrived at your results some explanatory notes as well.

To upload a file click the Go Advanced button at the foot of your post, look underneath the post area for the Manage Attachments section and take it from there.

I uploaded the two workbooks but I can't find them I usually don't post on forums I just read through them, to find the answers I need
sorry

This is the first code I used that worked:

PHP Code: 

Sub cmdEnter_Click()
Dim lRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Dim Running_Total As Currency
Me.txtRunning_Total = Format(Running_Total, "Standard")
Running_Total = Me.txtRunning_Total.Value
Me.txtTicket_Number = txtTicket_Number.Value + 1
Me.txtPlayers_Name.Value = txtPlayers_Name.Value
Me.txtPlayers_Name.SetFocus
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Row

ws.Cells(lRow, 1) = Me.txtTicket_Number.Text
ws.Cells(lRow, 2) = Me.txtPlayers_Name.Text

Me.txtRunning_Total.Value = Me.txtTicket_Number.Value * 4.75


'Clear the data
'Me.txtTicket_Number.Value = ""
Me.txtPlayers_Name.Value = ""



End Sub 


Here are the two workbooks the daily draw works good but I cant get the weekly draw to keep a running total

Hope someone can steer me in the right direction

It might be best to have the running total stored in the worksheet.

Then have "txtRunning_Total" equal that cell.

Ill try it, I've got til tomorrow at 1PM to come up with a solution thanks