Data Type VisualBasic Script

Sub createMenu()
    Dim myBar As CommandBar
    Set myBar = CommandBars.Add("My Command Bar")
End Sub