Private Sub Command1_Click()

Dim i As Integer
Dim iTemp As Integer
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer

Dim arr( 99 ) As Integer

For i =  0  To  29 
    arr(i) =  1 
Next i

For i =  30  To  49 
    arr(i) =  2 
Next i

For i =  50  To  99 
    arr(i) =  3 
Next i

Randomize Timer
For i =  1  To  100 
    iTemp = arr(Int(Rnd *  99 ))
    If iTemp =  1  Then
        i1 = i1 +  1 
    ElseIf iTemp =  2  Then
        i2 = i2 +  1 
    Else
        i3 = i3 +  1 
    End If
Next i

Debug.Print "1 - " & i1
Debug.Print "2 - " & i2
Debug.Print "3 - " & i3

End Sub