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(" ")
        datasplit(0) = TextBox1.Text
        datasplit(1) = TextBox2.Text
    End Sub