Nuevo Error con la Messenger API Type Library!

[700esoj]

Este es mi codigo:

Código:

Public WithEvents MSN As Messenger

Private Sub Command1_Click()

List1.Clear 'limpiamos el listbox
Set MsgrUIA = New MessengerAPI.Messenger ' seteamos MsgrUIA para trabajar con contactos
Dim user As IMessengerContact ' declaramos user como contacto del msn

    For Each user In MsgrUIA.MyContacts ' por cada user(usuraio) en MsgrUIA.MyContacts(osea en la lista de TUS contactos)
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then ' si estan en esos estados de arriba
        List1.AddItem user.SigninName ' lo agregamos al list1
        End If 'terminamos if
    Next ' next
Set MsgrUIA = Nothing ' limpiamos el MsgrUIA
End Sub

Private Sub Form_Load()
Set MSN = New Messenger
End Sub

Cuando trato de correr el programa me sale un error que dice:

RunTime Error 7;

Out Of Memory

Y me Subraya el codigo que esta en el Form_load()

Código:

Set MSN = New Messenger

alguien sabe que estoy haciendo mal?  estoy conectado al messenger so no creo que tenga que ver con eso... saber..