Textbox added to Form at runtime too small, can't control size andchange event won't trigger
 

I have Form and when the user clicks CommandButton4 a textbox is added
to the form with the code below. When I type in the textbox it
resizes itself really small and you can only view a small amount of
the text typed into the box. Also, when I type in the box the change
event does trigger the msgbox. Does anyone know how to make this
textbox resize so the user can see all the text typed in the box?

Private Sub CommandButton4_Click()
Dim ctrl As msforms.TextBox
With Me
Set ctrl = .Controls.Add("forms.textbox.1", "txt1", True)
ctrl.Left = 20
ctrl.Top = 50
ctrl.AutoSize = True
ctrl.MultiLine = True
ctrl.WordWrap = True
ctrl.Visible = True
End With
End Sub

Private Sub txt1_change()
MsgBox "txt1 has changed"
End Sub