hello

Below is a code that extracts certain urls and puts them into a listbox

Now how can i make it so it goes down the list it pulled
and comment to the page using a textbox

example
i typle in hey in textbox, it goes down the list or the urls and inputs what i want to say
and submits the form

below is the sumbit code

visual basic code:

<div id="addcomment">
<b>Add a Comment:</b>
<br /><br />

<div id="commentmsg"></div>

<textarea style="width:480px;" onkeyup="updatelength();" name="comment" id="comment" rows="4"></textarea>
<table width="480">
<tr>
<td><small>Characters remaining: <span id="coml">250</span></small><br /></td>
<td align="right"><input type="button" name="addcomment" value="Submit" onclick="AddCommentWithIndicator(1918915860, 32478360, 'TUlHbkJnb3JCZ0VFQVlJM1dBTzRvSUdZTUlHVkJnb3JCZ0VFQVlJM1dBTUJvSUdHTUlHREFnTUNBQUVDQW1ZREFnS UF3QVFJTlR jR1Npc0dET29FRUN6bXZaZnNjazdleG9lSzFQeWJyZVFFV0RDZkxoSzBtWGFBR3R6T1M2SVg5a24xblBFc21JaW5DQ ktPNkl1NWh vMTg5ZDl4Ni9jclF5VHNzb1ZZWGt3aENqV016SEdQUFMvdDNoS2p5UzVhcmlqTGE1dUVhcVNMVzMvcng4dTgzVGFzR i80Q0hKTit MNTA9');"></td>
</tr>


visual basic code:' in declarations
Private oLink As Object

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Const sFind As String = "http://vids.myspace.com/index.cfm?fuseaction=vids.individual&videoid="
Dim i As Integer
'Wait till document has loaded
If pDisp Is WebBrowser1.Object Then
With WebBrowser1.document
For i = 0 To .links.length - 1
If InStr(.links.Item(i).href, sFind) Then
If Not List1.List(List1.ListCount - 1) = .links.Item(i).href Then List1.AddItem .links.Item(i).href
End If
If InStr(.links.Item(i).href, "javascript:NextPage('") Then Set oLink = .links.Item(i)
Next i
End With
End If
End Sub

Private Sub Command1_Click()
If Not oLink Is Nothing Then
oLink.Click
Set oLink = Nothing
End If
End Sub