tenho tres nome eu queria sortia um e colocar ele no teste tem como eu fazer isto tenho +/- esta dica só que dar erro

 

Private Sub Timer1_Timer()
    Rem ShuffleDesktopIcons Edson.ListIndex
    Teste = Int((3 * Rnd) + 1)
    With Teste
        .AddItem "RANDOM"
        .AddItem "SINE"
        .AddItem "CIRCLES"
        .ListIndex = 0
    End With
   
    ShuffleDesktopIcons teste
End Sub

pessoa já revolvi, eu fiz assim

 

    teste = Int((3 * Rnd) + 1)
    Select Case teste
        Case "1"
            ShuffleDesktopIcons CIRCLES
        Case "2"
            ShuffleDesktopIcons RANDOM
        Case "3"
            ShuffleDesktopIcons SINE
    End Select

Tenta por Select Case