RS-2007 Highscore lookup Source not finished VB.NET

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click
'// Created by maikel233, Created in VB.net, INFO: This is not the fasted lookup but working perfectly.
'// Used imports
'// Imports System.Net
'//Imports System****
,
If Username.Text = ("") Then
MsgBox("Error, Username is missing.", MsgBoxStyle.Exclamation)
Else
Dim aanvang As HttpWebRequest = DirectCast(WebRequest.Create(("http://services.runescape.com/m=hiscore_oldschool/index_lite.ws?player=" & Me.Username.Text)), HttpWebRequest)
Try
Dim antwoord As HttpWebResponse = DirectCast(aanvang.GetResponse, HttpWebResponse)
Dim lezer As New StreamReader(antwoord.GetResponseStream)
Dim ATR As String() = lezer.ReadToEnd.Split(New Char() {","})
Me.Label24.Text = ATR(0)
Me.Label9.Text = ATR(1)
Me.Label12.Text = ATR(5)
Me.Label26.Text = ATR(3)
Me.Label13.Text = ATR(7)
Me.Label14.Text = ATR(9)
Me.Label15.Text = ATR(11)
Me.Label16.Text = ATR(13)
Me.Label17.Text = ATR(15)
Me.Label18.Text = ATR(&H11)
Me.Label19.Text = ATR(&H13)
Me.Label20.Text = ATR(&H15)
Me.Label21.Text = ATR(&H17)
Me.Label22.Text = ATR(&H19)
Me.Label23.Text = ATR(&H1B)
Me.Label24.Text = ATR(&H1D)
Me.Label25.Text = ATR(&H1F)
Me.Label26.Text = ATR(&H21)
Me.Label27.Text = ATR(&H23)
Me.Label28.Text = ATR(&H25)
Me.Label29.Text = ATR(&H27)
Me.Label30.Text = ATR(&H29)
Me.Label31.Text = ATR(&H2B)
Me.Label32.Text = ATR(&H2D)
Me.Label33.Text = ATR(&H2F)
Catch uitzondering As WebException
Dim exception As WebException = uitzondering
If (DirectCast(exception.Response, HttpWebResponse).StatusCode = HttpStatusCode.NotFound) Then
End If
End Try
End If
End Sub