[VB6] Randomizzare gli elementi di un Array

[skjobax]

Ho trovato questo:

Private Sub RandomizeArray()
Dim i As Integer
Dim j As Integer
Dim tmp As Integer

    ' Randomize the array.
    Randomize
    For i = 1 To NumItems - 1
        ' Pick a random entry.
        j = Int((NumItems - i + 1) * Rnd + i)

        ' Swap the numbers.
        tmp = Numbers(i)
        Numbers(i) = Numbers(j)
        Numbers(j) = tmp
    Next i
End Sub

Fonte: http://www.vb-helper.com/howto_randomize_array.html

Come posso tradurlo in funzione che accetta come parametro un Array?