Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        data1 = reader.ReadToEnd
        Dim datasplit() As String
        datasplit = data1.Split(" ")

        For i = 0 To datasplit.Length - 1
            TextBox1.Text = datasplit(0)
            TextBox2.Text = datasplit(1)
        Next
    End Sub