'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