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