Visual Basic - Ayuda con este codigo plz

Dim Lista as variant
Dim i As Integer
Dim Sorteo As Integer

Const item3 = 3
Const item7 = 7
Const item8 = 8
Const item10 = 10
Const item18 = 20
Const item27 = 27
Const item28 = 28
Const item31 = 31
Const item39 = 39
Const item44 = 44
Const item55 = 55
Const item57 = 59
Const item59 = 59
Const item60 = 60
Const item68 = 68
Const item75 = 75
Const item79 = 79
Const item81 = 81
Const item82 = 82

Lista = array(´item3´, ´item7´, ´item8´, ´item10´, ´item18´, ´item27´, ´item28´, ´item31´, ´item39´, ´item44´, ´item55´, ´item57´, ´item59´, ´item60´, ´item68´, ´item75´, ´item79´, ´item81´, ´item82´)

Sorteo = Random(Lista)

List1.AddItem Sorteo

tiene que lansarme esa lista de forma desordenada.