Public Type pMContactType
    Blocked As Boolean
    CanPage As Boolean
    FriendlyName As String
    IsSelf As Boolean
    ServiceID As String
    ServiceName As String
    SigninName As String
    Status As MessengerAPI.MISTATUS
End Type

Public Function FillContactStatusChangeData(InputData As Object) As pMContactType
'pMContact.:
'Blocked (bool)
'CanPage (bool)
'FriendlyName (String) - CURRENT MSN DISPLAY NAME
'IsSelf (bool)
'ServiceID (string)
'ServiceName (string)
'SigninName (string) - EMAIL
'Status (Part of the MISTATUS API)

End Function