ptionItemInBranch = True
                      Exit For
                  End If
              Next lS
          End If
      Else
          pbOptionItemInBranch = True
      End If
   End If
End Function
Private Function pbCheckValidForOption( _
        ByVal nodParent As Node _
    )
Dim lI As Long, lS As Long
Dim lChildren As Long
Dim sI As String
    If Left$(nodParent.Image, 6) &lt;&gt; "CHECK_" Then
        pbCheckValidForOption = True
        lChildren = nodParent.Children
        If (lChildren &gt; 