Private Sub Form_Load()
Dim pMessenger As MessengerAPI.Messenger
Dim pContacts As IMessengerContact
Set pMessenger = New MessengerAPI.Messenger
For Each pContacts In pMessenger.MyContacts
Debug.Print pContacts.SigninName
Next
End Sub