Исходный текст

Option Explicit
Call EraseTestRoleDefs()


'==============================================================================
' Удалить все тестовые типы ролей
'==============================================================================
Sub EraseTestRoleDefs()
        
        Dim  AllAppObjects, testdesc, i
        Set AllAppObjects = ThisApplication.RoleDefs ' Получить коллекцию типов ролей
        With AllAppObjects
        
        'Если нет информации о типах, выйти из процедуры
            If .Count = 0 Then 
                    MsgBox "Типы ролей в системе отсутствуют.", _
                            vbInformation, "Информация о текущей настройке"
                    Exit Sub
            End If

            testdesc = "Тестовый тип роли"
            For i = 0 to .Count - 1
                    if .Item(i).Description = testdesc Then
                        .Item(i).Erase
                    End If
            Next
        End With
End Sub 
'==============================================================================