Перемешивание значений массива - Visual Basic .NET

Sub ShuffleArray(arr As Integer())
    Dim rnd As New Random
    For I = 0 To arr.Length - 1
        Dim idx As Integer = rnd.Next() Mod arr.Length
        Dim temp As Integer = arr(I)
        arr(I) = arr(idx)
        arr(idx) = temp
    Next
End Sub