Option Explicit

Private Sub Form_Load()
    Dim i As Long
    Dim svData() As String
    
    ReDim svData(25)
    For i = 0 To UBound(svData)
        svData(i) = i
    Next
    
    MixUp svData
    
    For i = 0 To UBound(svData)
        Debug.Print svData(i)
    Next
End Sub

Private Sub MixUp(svData() As String)
    Dim sTemp As String
    Dim lIndex As Long
    Dim lIndex1 As Long
    Dim i As Long
    
    Randomize Timer
    For i = 0 To UBound(svData) * 5
        lIndex = Rnd * UBound(svData)
        lIndex1 = Rnd * UBound(svData)
        sTemp = svData(lIndex): svData(lIndex) = svData(lIndex1): svData(lIndex1) = sTemp
    Next
End Sub