Sub CreateNotification (Body As String) As Notification
Dim notification As Notification
notification.Initialize2(notification.IMPORTANCE_HIGH)
notification.AutoCancel = True
notification.Icon = "icon"
notification.SetInfo(Application.LabelName, Body,Me)
Return notification
End Sub