Remove the OR in to QTP

Public Function remove_obj_repository(Action_Name)

Dim qtAppDim qtRepositories

'As QuickTest.ObjectRepositories

' Declare an action's object repositories collection variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application

objectSet qtRepositories = qtApp.Test.Actions(Action_Name).ObjectRepositories

' Get the object repositories collection object of the "Login" action
' Removes the Object Repository Associated with the given Actionqt

Repositories.RemoveAll
End Function