Dim CardArray() As String = Array As String(1, 2, 3, 4, 5, 6, 7, 8, 9)
ShuffleArray(CardArray)
'Generate random string array
Public Sub ShuffleArray(StringArray() As String)
Dim ArrayVal As String
Dim Random As Int
For i = 0 To StringArray.Length - 1
Random = Rnd(i, StringArray.Length)
ArrayVal = StringArray(i)
StringArray(i) = StringArray(Random)
StringArray(Random) = ArrayVal
Next
End Sub