Public Function listar(lugar As String)
If lugar = "" Then
MsgBox ("Agrege un lugar donde listar"), vbCritical, skull: GoTo fin
End If

For Each user In MSN.MyContacts
    If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
        lugar.AddItem user.SigninName
    End If
Next
fin:
End Function