выровнять textbox по ширине и высоте текста

[uzer_@]

Пытаюсь выровнять textbox по ширине и высоте текста. считываю в строке количество символов, дальше не идет масштаб. Помогите!!!!

Option Explicit
Dim a As Object
Dim b As Integer
Private Sub CommandButton1_Click()
b = Len(UserForm2.TextBox1.Text)
Set a = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=20, Top:=20, Width:=b, Height:=120)
With a
.TextFrame.TextRange = UserForm2.TextBox1.Text & UserForm2.TextBox2.Text
.Line.Visible = msoFalse
.TextFrame.MarginLeft = 0
.TextFrame.MarginRight = 0
.TextFrame.MarginTop = 0
.TextFrame.MarginBottom = 0
.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
End Sub