alle Userformen löschen - Fehlermeldung

Sub Userformen_löschen()
Dim VBComp As VBComponent
Dim VBComps As VBComponents
Dim str As String
Set VBComps = ActiveWorkbook.VBProject.VBComponents
str = MsgBox("Der folgende Code löscht sämliche UserForms aus dem aktiven Projekt." & Chr( _
10) & "möchten Sie fortfahren?", vbCritical + vbYesNo)
If str = vbYes Then
For Each VBComp In VBComps
If VBComp.Type = vbext_ct_MSForm Then VBComps.Remove VBComp
Next VBComp
End If
End Sub