Ans:
Set qtApp=CreateObject("QuickTest.Application")
Set objRep=qtApp.Test.Actions("ActionName").ObjectRepositories
objRep.Add "ObjectRepositoryPath",position
Follow @TestingQ
Set qtApp=CreateObject("QuickTest.Application")
Set objRep=qtApp.Test.Actions("ActionName").ObjectRepositories
objRep.Add "ObjectRepositoryPath",position