Here you will find attached simple way to create an EXACT match for a PN.
Dim SearchAttributes As New StringList
SearchAttributes.Add("HEIGHT=100")
SearchAttributes.Add("WIDTH=120")
SearchAttributes.Add("DEPTH=110")
SearchAttributes.Add("OPTION_1=YES")
SearchAttributes.Add("OPTION_2=YES")
'you can add as many of these as you wish
Dim PartID As String = CAD.FileHashCode( "filename.prt" , SearchAttributes)
msgbox(PartID)