OK, I built you an application to test your theory.

Add this code to a Standard Module, like: Module1.

Then in Row two, one number to a column add the numbers you will be betting on. Note: the code automatically uses both 0 and 00 as possible numbers on the wheel. The application will ask you the number of slots on the wheel, your bet and the total number of spins you will be testing!

To re-run the code you must delete the printed data from row 3 or 4 to the bottom, you can keep your bet-on-numbers.

**Sub myRoulette()**

'Standard module, like: Module1.

Dim mySpin%, maxNum%, numSpins%, spins%, myNum%, myEnd%, myBetC%

Dim myWinings&, MyLosses&, myWiner&, myLose&, myBet&

Dim myFlagW As Boolean, myFlagL As Boolean

Dim myRng As Range

Dim winNum$

myEnd = ActiveSheet.Range("IV2").End(xlToLeft).Column

Set myRng = ActiveSheet.Range(Cells(2, 1), Cells(2, myEnd))

If myRng.Count = 0 Then _

MsgBox "In Row 2, one value to a Column, add the numbers you wish to bet on, starting in Column ""A!"""

ActiveSheet.Range("A3").Value = "Spin"

ActiveSheet.Range("B3").Value = "This Bet"

ActiveSheet.Range("C3").Value = "Losses"

ActiveSheet.Range("D3").Value = "Wins"

ActiveSheet.Range("E3").Value = "This Win"

ActiveSheet.Range("F3").Value = "Winning Number"

'Get wheel!

maxNum = InputBox("What is the highest number on the wheel?" & vbLf & vbLf & _

"Note: The last two numbers will be converted to 0 and 00." & vbLf & _

"So, for 1 to 36 with 0 and 00, enter 38!", "Numbers to use!", 38)

'Get bet!

myBet = InputBox("What amount to add to the amount bet each spin?", "Enter bet pattern!", 5)

myBetC = myBet

'Get Number of spins/bets to make!

numSpins = InputBox("How many spins will you be making?", "Get Spin Cycles!", 100)

For spins = 1 To numSpins

'Initialize random-number generator.

Randomize

'Get random number for spin.

mySpin = Int((maxNum * Rnd) + 1)

'Get winning number!

If mySpin = maxNum - 1 Then

winNum = "0"

ElseIf mySpin = maxNum - 2 Then

winNum = "00"

Else

winNum = mySpin

End If

'Get win or loss!

For Each Cell In myRng

If mySpin = maxNum - 1 And Cell.Value = 0 Then

myWiner = (myBet * (((myRng.Count / maxNum) / 2) * 100)) - ((myRng.Count - 1) * myBet)

ActiveSheet.Range("D" & 4 + spins).Value = "Win"

ActiveSheet.Range("E" & 4 + spins).Value = myWiner

myFlag = True

ElseIf mySpin = maxNum - 2 And Cell.Value = "00" Then

myWiner = (myBet * (((myRng.Count / maxNum) / 2) * 100)) - ((myRng.Count - 1) * myBet)

ActiveSheet.Range("D" & 4 + spins).Value = "Win"

ActiveSheet.Range("E" & 4 + spins).Value = myWiner

myFlag = True

ElseIf mySpin = Cell.Value Then

myWiner = (myBet * (((myRng.Count / maxNum) / 2) * 100)) - ((myRng.Count - 1) * myBet)

ActiveSheet.Range("D" & 4 + spins).Value = "Win"

ActiveSheet.Range("E" & 4 + spins).Value = myWiner

myFlagW = True

Else

myLose = myLose + myBet

ActiveSheet.Range("C" & 4 + spins).Value = "Lose"

myFlagL = True

End If

Next Cell

ActiveSheet.Range("A" & 4 + spins).Value = spins

ActiveSheet.Range("B" & 4 + spins).Value = myBet

myBet = myBet + myBetC

If myFlagW = True Then myWinings = myWinings + myWiner

If myFlagL = True Then MyLosses = MyLosses + myBet

ActiveSheet.Range("F" & 4 + spins).Value = winNum

myFlagW = False

myFlagL = False

Next spins

MsgBox "You spent: $" & MyLosses & vbLf & _

"You won: $: " & myWinings & vbLf & _

"Your profit is: $" & myWinings - MyLosses

**End Sub**