I have modified an exiting macro found here but it does not open the part or drawing. It find the file anywhere in the vault, the information it find is valid can somebody help

Function getFileLocations(INPUTPARAM As String) As Boolean On Error GoTo ErrorHandler Dim pdmVault As EdmLib.EdmVault5 Dim pdmBatchGetUtil As EdmLib.IEdmBatchGet Dim PdmSearch As EdmLib.IEdmSearch9 Dim searchResult As EdmLib.IEdmSearchResult5