Use object substitution to substitute a simple name with an extendedobject reference. Each “.” in the syntax represents an OLE lookup.Better performance is achieved the fewer times lookups need to be performed.For example:
For i = 1 to 10 txt(i) = myApp.TimeSheet.Employee.NameNext I Performs better if rewritten using substitution:
Dim emp as New Employee' Create the substitution object variableSet emp = myApp.TimeSheet.EmployeeFor i = 1 to 10 txt(i) = emp.NameNext I txt(i) = emp.NameNext ISee also Is Your Fundraising Campaign Stalling? Here’s the Game-Changing Advice You Need 
