Dovrebbe funzionare, hai dimenticato di rendere visibile il text box appena creato.
codice:Function createTxtbox(name As String, l As Integer, t As Integer) As TextBox Set createTxtbox = New TextBox createTxtbox.name = name createTxtbox.Left = l createTxtbox.Top = t createTxtbox.Visible = true End Function