[VB6] Randomizzare gli elementi di un Array

[skjobax]

Io ho questo codice:

Private Sub Deal()
    Dim cards(1 To 52), i As Integer
    
    For i = 1 To 52
        cards(i) = i + 1
    Next i
    cards = Shuffle(cards)
    
    MsgBox cards(5)
End Sub

Si tratta di un esercizio di una guida che ho trovato su Internet.
Shuffle è stata presa da: http://www.freevbcode.com/ShowCode.asp?ID=7399

Il problema è: Perché mi esce questo errore?

Compile error:

Type mismatch: array or user-defined type expected