that wont show a random contact btw...
i had a little play around and came up with this..
code:
Dim nRandom As Long
Dim num, count As Integer
Dim MSNC As IMessengerContact
Dim MSNCs As IMessengerContacts
Set MSNCs = MessengerAPI.Messenger.MyContacts
num = MessengerAPI.Messenger.MyContacts.Count
nRandom = Int(Rnd * num)
count = 1
For Each MSNC In MSNCs
If count = nRandom Then
If MSNC.Blocked = False Then
'MessengerAPI.Messenger.InstantMessage(MSNC.Siginname)
Msgbox "Ok" & vbnewline & MSNC.Signinname
End If
Else
count = count + 1
End If
Next
/ 
