This is my slot machine that creates random number between 1 & 3. The problem it has is it doesn't save what you win. it is supposed to deduct a dollar each pull, and if it shows all 1's you getr $3, all 2's $6, and all 3's $10.
It is suppoed to show your total winnings in lbltotal.caption

Private Sub cmdpull_Click()
Dim intwin As Integer
intwin = -1
lbltotal.Caption = intwin
lbl1.Caption = Int(3 * Rnd + 1)
lbl2.Caption = Int(3 * Rnd + 1)
lbl3.Caption = Int(3 * Rnd + 1)
If lbl1.Caption = 1 And lbl2.Caption = 1 And lbl3.Caption = 1 Then
MsgBox "You won $3"
intwin = 3
ElseIf lbl1.Caption = 2 And lbl2.Caption = 2 And lbl3.Caption = 2 Then
MsgBox "You won $6"
intwin = 6
ElseIf lbl1.Caption = 3 And lbl2.Caption = 3 And lbl3.Caption = 3 Then
MsgBox "You won $10"
intwin = 10
End If
End Sub