the code below works, I just need to have a SetFocus added to each new tab that is added so i can process coding (control arrays) for that tab before a new one is created.

Code:
Dim newTab As MSComctlLib.Tab 

Set newTab = TabStrip1.Tabs.Add 
newTab.Caption = "Y" & TabStrip1.Tabs.Count