making all characters except '0' appear in textbox

[richie]

I have a form with an array of textboxes. A different number, between -12 and 12, loads into the textboxes at random when the form loads.

I use this code:

Private Sub Form_Load()
Randomize Timer
Text5(0).Text = Int((10 + 13) * Rnd - 10)
Text5(1).Text = Int((10 + 13) * Rnd - 10)
Text5(2).Text = Int((10 + 13) * Rnd - 10)
Text5(3).Text = Int((10 + 13) * Rnd - 10)
Text5(4).Text = Int((10 + 13) * Rnd - 10)
Text5(5).Text = Int((10 + 13) * Rnd - 10)
Text5(6).Text = Int((10 + 13) * Rnd - 10)
Text5(7).Text = Int((10 + 13) * Rnd - 10)
For X = 0 To 7
If Rnd > 0.5 Then
Text5(X).Text = "+" & Int(Rnd * 12)
End If
Next X

I want to have it so that '0' doesn't appear in the textboxes - if it happens to come up at random. I thought that placing the code below, between the 'End If' and 'Next X' above, would do it. but it doesn't:

If Val(Text5(index).Text) = 0 Then
Text5(index).Text = "3"
End If

Could someone please tell me how I can do it?

Thanks!

[OneSource]

Hi Richie. I believe that this code does what you are looking for:

Option Explicit

Private Sub Form_Load()
    Dim iCounter as Integer

    For iCounter = 0 to 7
        Text5(iCounter) = 0
        Randomize
        Do Until Text5(iCounter) <> 0
            Text5(iCounter) = Int((23 * Rnd) - 10) 
        Loop
    Next
End Sub

All the best.