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