Генератор случайных чисел и одинаковая последовательность - VB

Формулировка задачи:

Есть генератор случайных чисел:

                    Листинг программы
                
 
                        
                          
                    
Function GenXzn(ByVal nLen As Long, Optional ByVal NoZero As Boolean = False) _
As Double
Dim s$, i%
Do While (Len(s) < nLen)
i = Int(Rnd() * 20) 
If (CBool(i) Or Not (CBool(i) Or NoZero)) Then s = s & i
Loop
GenXzn = Int(s)
End Function
Private Sub Form_Load()
Label1.Caption = GenXzn(1)
End Sub

При новой загрузки постоянно идет одна и таже последовательность 14,10,11,5,6,15,0 и.т.д. Как избежать этой постоянной последовательности, что бы действительно были случайные числа.

Решение задачи: «Генератор случайных чисел и одинаковая последовательность»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function GenXzn(ByVal nLen As Long, Optional ByVal NoZero As Boolean = False) _
As Double
Dim s$, i%
Randomize Timer
Do While (Len(s) < nLen)
i = Int(Rnd * 20)
If (CBool(i) Or Not (CBool(i) Or NoZero)) Then s = s & i
Loop
GenXzn = Int(s)
End Function