ParameterFromSubName

From scripting
Jump to: navigation, search
Function ParameterFromSubName(NameStr As String, ParmsList As Parameters) As Parameter
For X = 1 To ParmsList.Count
    If InStr(ParmsList.Item(X).Name, NameStr) <> 0 Then
        Set ParameterFromSubName = ParmsList.Item(X)
        Exit Function
    End If
Next X 
End Function