Public WithEvents SkypeClient As Microsoft.Lync.Model.Client = _
  Microsoft.Lync.Model.LyncClient.GetClient()
Public WithEvents MeinSkype As Model.Contact = _
SkypeClient.ContactManager.GetContactByUri(SkypeClient.Uri.ToString)
 
 
	Public Sub Contact_ContactInformationChanged_ServiceDesk(sender As Object, e _
  As ContactInformationChangedEventArgs) Handles _
  MeinSkype.ContactInformationChanged
msgbox(MeinSkype.GetContactInformation( _
Model.ContactInformationType.Activity).ToString)
End sub