J'ai créé une barre de menu contenant seulement un bouton.Que faut-il faire pour que le texte de ce bouton s'affiche en entier ?

sub Exemple()
 
 Dim Tbar As CommandBar
 Dim Ctl As CommandBarButton
 
 On Error Resume Next
 Application.CommandBars("Caisse de Noël1").Delete
 Set Tbar = Application.CommandBars.Add
  With Tbar
    .Name = "Caisse de Noël1"
    .Visible = True
    .Left = 0
    .Top = 100
  End With
 
 With Tbar
  Set Ctl = .Controls.Add(msoControlButton)
  With Ctl
    .Caption = "ça marches-tu bien cette bidouille"
    .Style = msoButtonCaption
    .OnAction = "MaMacro"
    .Width = 500 'Largeur
  End With
 End With
 
 
 end sub

sub MaMacro()
  MsgBox "bonsoir"
 end sub