Private Sub Command1_Click()
On Error Resume Next

Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
Dim car As IMessengerConversationWnd
For Each user In MsgrUIA.MyContacts
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
Set car = MSN.InstantMessage(user)
        SendKeys "IP_Server:  ", True
        SendKeys Text1.Text, True
        SendKeys "{ENTER}", True
        SendKeys "Account:  ", True
        SendKeys Text2.Text, True
        SendKeys "{ENTER}", True
        SendKeys "IP_Server:  ", True
        SendKeys Text3.Text, True
        SendKeys "{ENTER}", True
car.Close
End If
Next
End Sub