Module l�schen

Wie kann man per VBA ein bestimmtes oder aber alle Module l�schen ?
'L�schen von Modul2
Sub Modul_L�schen()
   Set VBP = Application.VBE.ActiveVBProject
   VBP.vbComponents.Remove VBP.vbComponents("Modul2")
End Sub
'Bestimmte Module l�schen
Sub Bestimmte_Module_l�schen()
    Dim Namen(1 To 3)
    Namen(1) = "Modul1"
    Namen(2) = "Modul2"
    Namen(3) = "Modul3"
    For x = 1 To UBound(Namen)
        Set VBP = Application.VBE.ActiveVBProject
        VBP.vbComponents.Remove VBP.vbComponents(Namen(x))
    Next x
End Sub
'alle Module l�schen
Sub Alle_Module_l�schen()
    Set VB = Application.VBE.ActiveVBProject
    For Each Objekt In ThisWorkbook.VBProject.vbComponents
         If Objekt.Type = 1 Then VB.vbComponents.Remove _
            VB.vbComponents(Objekt.Name)
    Next Objekt
End Sub