AddSetIfNotThere

From scripting
Jump to: navigation, search
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