Difference between revisions of "AddSetIfNotThere"

Latest revision as of 04:46, 22 April 2017

Function AddSetIfNotThere(ContainerSet As Variant, HBName As String) As HybridBody
Dim JKL As HybridBody
If ContainerSet.HybridBodies.Count = 0 Then
    Set JKL = ContainerSet.HybridBodies.Add
    JKL.Name = HBName
    Set AddSetIfNotThere = JKL
    Exit Function
End If

Dim SetCounter As Integer
SetCounter = 1
While SetCounter <= ContainerSet.HybridBodies.Count
    If ContainerSet.HybridBodies.Item(SetCounter).Name = HBName Then
        Set JKL = ContainerSet.HybridBodies.Item(HBName)
        Set AddSetIfNotThere = JKL
        Exit Function
    End If
    SetCounter = SetCounter + 1
Wend
Set JKL = ContainerSet.HybridBodies.Add
JKL.Name = HBName
Set AddSetIfNotThere = JKL

End Function