MSN Messenger programmering

Hej

Hvordan laver jeg en sub som udføres når messenger 5.0 modtager en meddelelse? Fx

Private Sub Mes_onTextArrive(Text as string)
Label.caption = Text
End Sub

Jeg ved det kan lade sig gøre med v.4.6 men jeg kan ikke få det til at lykkes i v.5.0...