VB Code to wrap text in a CommandButton

[GA3]

I need to wrap text in this button due to space constraints in my worksheet where it will be placed, but I can not figure out where to place the syntax or exactly what it should be. My guess is that the command is WrapText=True but I can't seem to find anything to help me or get it to work. Thanks!

Sub AddButtonAndCode()
' Declare variables
Dim i As Long, Hght As Long
Dim Name As String, NName As String
' Set the button properties
i = 0
Hght = 4.5
' Set the name for the button
NName = "cmdAction" & i
' Test if there is a button already and if so, increment its name
For Each OLEObject In ActiveSheet.OLEObjects
If Left(OLEObject.Name, 9) = "cmdAction" Then
Name = Right(OLEObject.Name, Len(OLEObject.Name) - 9)
If Name >= i Then
i = Name + 1
End If
NName = "cmdAction" & i
Hght = Hght + 27
End If
Next
' Add button
Dim myCmdObj As OLEObject, N%
Set myCmdObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=4.5, Top:=Hght, _
Width:=155.25, Height:=40.5)
' Define buttons name
myCmdObj.Name = NName
' Define buttons caption
myCmdObj.Object.Caption = "Click To Create Printable Bulletins"
Call Macro2
End Sub

 

[GA3]

Found an answer....

& vbNewLine & will seperate the text. My fix is...

myCmdObj.Object.Caption = "Click To Create" & vbNewLine & "Printable Bulletins"