Do Until c = Text
You are not setinng any value for Text so C = 0 and Text = 0, it goes straight to
Loop
log.AddItem "Done Gambling"
Where are you setting the values for any of the Text values; you have them as integers (but never enter a value). You may want ot change the names, textboxes also use that name.