Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 1 To 10
Dim k As String = "http://mcbans.com/" & i
Label1.Text = "Usernames Scraped: " & ListBox1.Items.Count
Dim source As String = New System.Net.WebClient().DownloadString(k)
Dim reg As Regex
reg = New Regex("need help here :)")
Dim Matches As MatchCollection = reg.Matches(source)
For Each UsernameString As Match In Matches
Dim s As String = UsernameString.Value.Split(">").GetValue(1)
Dim z As String = s.Split("<").GetValue(0)
If IsNumeric(z(0)) Then
ListBox1.Items.Add(z)
End If
Next
Next
End Sub