Try:

dim withevents tb as TextBox
set tb = Controls.Add("VB.TextBox", "text1")


Now you can access the properties and events