getplayers function problem

edit: solve problem but i'll give u the source now.

Code:

    Function getplayers(ByVal world As Integer, ByVal html As String) As String
        Dim splits As String
        Try
            splits = Split(html, ">World " & world & "<")(1)
        Catch
            getplayers = "Full"
            Exit Function
        End Try
        splits = Split(splits, "<td>")(1)
        getplayers = splits.Remove(splits.IndexOf("</"))
    End Function

usage:

Code:

		Dim i As String, web As New Net.WebClient
		i = web.DownloadString("http://www.runescape.com/lang/en/aff/runescape/serverlist.ws?order=WMLP")
		TextBox2.Text = getplayers(1, i)