For Sim = 1 To 1000

T = 1
I = 1

For I = 1 To 12

    If T = 1 Then
        T = 2
    ElseIf T = 9 Then
        T = 8
    Else
        Rando = Rnd()
        If Rando < 0.5 Then
            T = T - 1
        ElseIf Rando > 0.5 Then
            T = T + 1
        End If
    End If

I = I + 1

Next I


If T = 1 Then
myOne = myOne + 1
ElseIf T = 2 Then
myTwo = myTwo + 1
ElseIf T = 3 Then
myThree = myThree + 1
ElseIf T = 4 Then
myFour = myFour + 1
ElseIf T = 5 Then
myFive = myFive + 1
ElseIf T = 6 Then
mySix = mySix + 1
ElseIf T = 7 Then
mySeven = mySeven + 1
ElseIf T = 8 Then
myEight = myEight + 1
ElseIf T = 9 Then
myNine = myNine + 1
End If


Next Sim

Randomize
Rando = Rnd()