Ok, wat heb je nodig:

- Listbox
Name: listContacts

- CommandButton
Name: Command1

- Label
Name: Label1

- Timer
Name: Timer1
Enabled: True
Interval: 10 000

Als je dit op je form gezet hebt, ga je naar de code, en daar plak je de volgende code (overtypen zal wat lang duren :p)

Dim contact As IMessengerContact
Dim status As String

Option Explicit
Public WithEvents msn As Messenger


Private Sub Command1_Click()
    Timer1_Timer
End Sub

Private Sub Form_Load()
    Timer1_Timer
End Sub

Private Sub Timer1_Timer()
    listContacts.Clear

    For Each contact In Messenger.MyContacts
        If contact.status <> MISTATUS_OFFLINE And contact.status <> MISTATUS_INVISIBLE Then

            Select Case contact.status
                Case 2
                    status = "Online"
                Case 10
                    status = "Bezet"
                Case 14
                    status = "Zo terug"
                Case 18
                    status = "Inactief"
                Case 34
                    status = "Afwezig"
                Case 50
                    status = "Aan de telefoon"
                Case 66
                    status = "Lunchpauze"
            End Select

            listContacts.AddItem contact.FriendlyName & " (" & status & ")", 0 'Verander FriendlyName in SigninName om het emailadres te zien
        End If
    Next
    Label1.Caption = listContacts.ListCount & " online contacten."
End Sub

Ok, bijna klaar!
Maar, [b]zéér belangrijk[/b] nog:
Ga naar Project > References en vink "Messenger API Type Library" aan.