Found This:
Shared Event Boot()
Lplan.Subscribe("mcModule/000104e6/test")
End Event
Shared Event SubscriptionDelivery()
Dim msg As Message = Lplan.GetDelivery()
If msg.Topic= "mcModule/000104e6/test" Then
Dim payload As ListOfByte = msg.PayLoad
If payload.ToString() = "abc123" Then
LedGreen = True
Else
LedGreen = False
End If
End If
End Event
---
Will give it a try.