Código:
Private Sub ListContact_Click()
For Each user In MSN.MyContacts
List1.AddItem user.SigninName
Next
For i = 0 To List1.ListCount
Text1.Text = Text1.Text & List1.List(i) & vbCrLf
Next
End Sub
He estado buscando por google y no encuentro nada en español al respecto, gracias