To delete a specific dimension style, use the Delete method found on the member object. For example, the following code deletes the layer ABC:
Dim ABCLayer as AcadLayer
Set ABCLayer = ThisDrawing.Layers.Item("ABC")
ABCLayer.Delete
Once an object has been deleted, you must never attempt to access the object again later in the program.