Do you get the error on the below line:
arrIDs = Split(EntryIDCollection, ",")