Public Sub ListAlerts()

'  List alerts

    Dim AFact As IAlertManager
    Dim Alrt As Alert
    Dim AlertList As IList
 
    Set AFact = tdc.AlertManager
    Set AlertList = AFact.AlertList("ALL", True)
    
    Debug.Print AlertList.Count
    For Each Alrt In AlertList
        With Alrt
            Debug.Print .ID & ": Subject :""" & .Subject & """, Description = """ & .Description & """"  
        End With
    Next Alrt

End Sub