FindFirstAxisParminParms
From scripting
Function FindFirstAxisParmInParms(SetParms As Parameters) As Parameter Dim TestStr As String TestStr = "Origin\X" For X = 1 To SetParms.Count If InStr(SetParms.Item(X).Name, TestStr) <> 0 Then Set FindFirstAxisParmInParms = SetParms.Item(X) Exit Function End If Next End Function