Least Full World?

I got this code, but it doesn't work. Does anyone has a solution?

Code:

Function GetServer(ByVal FreeWorld As Boolean, ByVal LeastFull As Boolean, ByVal ReturnPrefix As Boolean)
        ''Get Least/Most full Free/Member world
        ''Made By Xenifiks aka Quirzo 2006-2007
        ''Last Update: 14.3.2007
        ''NOTICE: This only returns non-full worlds!
        Dim web As New Net.WebClient()
        Dim Temp, Number, Prefix, PageToLoad As String
        Dim Temp2 As Object

        'What page to open?
        If FreeWorld And LeastFull Then PageToLoad = "MPWL"
        If FreeWorld And Not LeastFull Then PageToLoad = "MWPL"
        If Not FreeWorld And LeastFull Then PageToLoad = "mPWL"
        If Not FreeWorld And Not LeastFull Then PageToLoad = "mWPL"

        'Lets open it
        Temp = web.DownloadString("http://www.runescape.com/slj.ws?lores.x=1&plugin=0&order=" & PageToLoad)
        Temp2 = Mid(Temp, InStr(1, Temp, "d.write(""</tr>"");", vbTextCompare) + Len("d.write(""</tr>"");"))
        Temp2 = Mid(Temp2, 6)
        Temp2 = Split(Temp2, ";")
        Temp2 = Split(Temp2(0), ",")
        Number = Temp2(0) 'line you missed
        If Not IsNumeric(Number) Then
            GetServer = "0"
        Else
            If ReturnPrefix = True Then
                GetServer = Replace(Temp2(3), """", "")
            Else
                GetServer = Temp2(0)
            End If
        End If
    End Function