How to Get List of Values using OTA API HP Quality Center?

Dim cust As Customization
Dim custlists As CustomizationLists
Dim custlist As CustomizationList
Dim listrootnode As CustomizationListNode

Set cust = tdc.Customization
Set custlists = cust.Lists
Set custlist = custlists.List("Bug Status")
Set listrootnode = custlist.RootNode
MsgBox "Count list items: " & listrootnode.ChildrenCount & Chr(13) _
& "Root name: " & listrootnode.Name
Set listchildren = listrootnode.Children
MsgBox "Count children: " & listchildren.Count
Text = ""
For i = 1 To listchildren.Count
Text = Text & Chr(13) & listchildren.Item(i).Name
Next
MsgBox Text