Private Sub DeleteAlertsByNumber(bg As Bug)

' Delete alerts by ID numbers

On Error GoTo DeleteErr
    Dim Alrt As Alert
    Dim Alrtable As IAlertable2
    
    ' Cast the Bug object to IAlertable2.
    Set Alrtable = bg
    
    ' Delete alerts with IDs 1,2, and 3.
    Alrtable.DeleteAlert ("1,2,3")

Exit Sub
DeleteErr:
    ErrHandler err, "DeleteAlerts", "", NON_FATAL_ERROR
End Sub