Application VisualBasic Script

Sub delBar()
    CommandBars("MyToolbar").Controls(1).Delete
End Sub