'@Description "Spécifie une donnée par défaut pour le contrôle."
Public Sub GetTextEditBox(Control As IRibbonControl, _
ByRef strText)
Select Case Control.id
Case "ebxDate"
strText = Format(Date, "Long date")
Case Else
strText = GetTheValue(Control.Tag, "DefaultValue")
End Select
End Sub