Customer Center

What you had above is close, – you don't need to do  Set Web1.Selected = Web1.Selected.children.Item(x)

Just do
Dim ListItem
For i =0 to web1.Selected.Children.length
set ListItem=Web1.Selected.Children.item(i)
'now listItem is the Li – do whatever
Next i