Public Function Lookup( _
ByRef rValue As Variant _
, ByVal vName As Variant _
, Optional ByVal vCompare As Variant _
) As Boolean Assuming
Dim stTemp As New SymbolTable
stTemp.Add "FunctionName", 23
stTemp.Add "FunctionName", 24
Dim bResult As Boolean
Dim varData As Variant
for example
bResult = stTemp.Lookup(varData, "FunctionName")
leaves
bResult = True
varData = 24See also: Remove Function
Update Function
Add FunctionrValue: The value that will be returned if the lookup is successful. vValue can be any data type (vbString, numeric, vbDate, vbObject, vbArray, etc.) as long as it is compatible with the Value to be returned. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.