Need some help - ListBox Counter

[Injection]

For Each fn As String In ListBox1.Items
Try
Dim myDatabuffer As Byte() = myWebClient.DownloadData("http://habbo.com/home/" & fn)
Dim download As String = Encoding.ASCII.GetString(myDatabuffer)
Catch Ex As Exception
RichTextBox1.AppendText((Chr(10) & fn))
Finally
Label2.Text=CStr(CDbl(Label2.Text)+1)
End Try
Next
Label1.Text = "Done"
Should work