For the second question:
For Each mytest In tlist
Set stepfact = mytest.DesignStepFactory
Set StepList = stepfact.NewList("")
mytest.Field("TS_USER_01") = StepList.Count
Next
For the second question:
For Each mytest In tlist
Set stepfact = mytest.DesignStepFactory
Set StepList = stepfact.NewList("")
mytest.Field("TS_USER_01") = StepList.Count
Next