Public Sub GetBuddies()
    Dim msgr As New MessengerAPI.Messenger
    Dim groups As IMessengerGroups
    Dim group As IMessengerGroup
    Dim contacts As IMessengerContacts
    Dim contact As IMessengerContact
    Dim I As Integer
    Dim J As Integer
    
    I = 1
    J = 1
    
    Set groups = msgr.MyGroups
    For Each group In groups
        Sheet1.Cells(I, 1) = group.Name
        Set contacts = group.contacts
        J = I + 1
        For Each contact In contacts
            Sheet1.Cells(J, 2) = contact.FriendlyName
            Sheet1.Cells(J, 3) = contact.SigninName
            Sheet1.Cells(J, 4) = GetStatus(contact.Status)
            J = J + 1
        Next
        I = J
    Next
End Sub

Public Function GetStatus(I As Integer) As String
    Dim str As String
    Select Case I
        Case 1
            str = "Offline"
        Case 2
            str = "Online"
        Case 6
            str = "Invisible"
        Case 10
            str = "Busy"
        Case 14
            str = "Be Right Back"
        Case 18
            str = "Idle"
        Case 34
            str = "Away"
        Case 50
            str = "On the Phone"
        Case 66
            str = "Out to Lunch"
        Case Else
            str = "Unknown"
    End Select
    
    GetStatus = str
End Function