Public Sub AddOrUpdate( _
ByVal vValue As Variant _
, Optional ByVal vCompare As Variant _
) Assuming
Dim lstTemp As New List
for example
lstTemp.AddOrUpdate "FunctionName"
lstTemp.AddOrUpdate "FunctionName"
leaves
lstTemp.Count = 1See also: Add SubroutinevValue: Value that will inserted into the List unless it already exists (in which case this subroutine will silently do nothing). vValue can be any type of Variant value on which comparisons can be made using the EqualLikeDataTypeFast function (vbString, numeric, vbDate, etc.).
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.