FindFirstAxisParminParms

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