Sub test()
    DeleteAllVBA ThisWorkbook, "Module1"
End Sub

Sub DeleteAllVBA(WB As Workbook, ModuleName As String)
Dim VBComp As Object
Dim VBComps As Object

    Set VBComps = WB.VBProject.VBComponents
    Set VBComp = VBComps(ModuleName)

    Select Case VBComp.Type
       Case  1 ,  2 ,  3 
          VBComps.Remove VBComp
       Case Else
          With VBComp.CodeModule
             .DeleteLines  1 , .CountOfLines
          End With
    End Select
    
    Set VBComps = Nothing
    Set VBComp = Nothing
End Sub