How do i want to create random number for dynamic array variables ?

[dongtrien]

I wrote 1 function Random2 to create random number for dynamic array variables, when my program run, it's suspend my computer, my function below:
Public Function Random2(Min As Single, Max As Single) As Single
Dim i As Integer
Dim vitri As Integer
Dim N As Integer
Dim Num() As Single
N = Max - Min + 1
ReDim Num(N)
For i = 0 To N Step 1
Num(i) = Min
If Min <= Max Then
Min = Min + 1
End If
Next i

i = 0
Randomize
vitri = Int((Max * Rnd) + Min)
While i <= vitri

If i >= N Then
i = 0
End If
i = i + 1

Wend

Random2 = Num(i)
End Function

Can you help me ?