Application VisualBasic Script

Sub RemoveToolbar(tlbarName As String)
    Dim myCommandBar As CommandBar
    For Each myCommandBar In Application.CommandBars
        If myCommandBar.Name = tlbarName Then
            myCommandBar.Delete
            Exit For
        End If
    Next
End Sub