Dim sr As New IO.StreamReader("C:\test.dat")
        Dim lines As New ArrayList
        While sr.Peek > -1
            lines.Add(sr.ReadLine)
        End While
        sr.Close()
        Me.TextBox1.Text = lines(1).ToString.Substring(lines( _
          1).ToString.IndexOf("=") + "=".Length)
        Me.TextBox2.Text = lines(0).ToString.Substring(lines( _
        0).ToString.IndexOf("=") + "=".Length)