duda con una cosa del mesenger?

hola bueno tengo una pregunta e intentao muchos modos pero no logro hacer que:

tengo un boton y al ejecutar ese boton se supone que busque todos mis contactos menos los desconcetados y le envie un texto que esta en el text1.text, lo que pasa es que no logro ver como puedo listarlos este es el code y me tira eeror!..

Código:

Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("Agrega Algun mensaje"), vbInformation, "Hola"
Else
Dim usera As IMessengerContact
Dim win As IMessengerConversationWnd
Set MsgrUIA = New MessengerAPI.Messenger

For Each usera In MsgrUIA.MyContacs
    If usera.Status = MISTATUS_ONLINE Or usera.Status = MISTATUS_AWAY Or usera.Status = MISTATUS_BE_RIGHT_BACK Or usera.Status = MISTATUS_BUSY Or usera.Status = MISTATUS_IDLE Or usera.Status = MISTATUS_ON_THE_PHONE Or usera.Status = MISTATUS_OUT_TO_LUNCH Then
    Set win = MSN.InstantMessage(usera)
    SendKeys Text1.Text, True
    SendKeys "{ENTER}", True
    DoEvents
    windows.Close
    End If
    Next
DoEvents
End If
End Sub

a ver si me dan una mano y me dicen mi error!