Difference between revisions of "ParameterFromSubName"

Latest revision as of 19:39, 24 April 2017

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