For Statement help needed

[Wokawidget]

Private Sub NextW()
Dim W As Integer    
    For W = 0 To Web1.Document.links.length - 1 
         'Debug.Print Web1.Document.links(X) 
         lstautolink.AddItem Web1.Document.links(W) 
    Next W 
End Sub

Do the same for the other one, then just keep caklling the procedures....