Dim sr As New IO.StreamReader("C:\test.dat")
        Dim line As String = Nothing
        While sr.Peek > -1
            line = sr.ReadLine
            If line.StartsWith("mcdName") Then
                Me.TextBox1.Text = line.Substring(line.ToString.IndexOf("=") + _
                  "=".Length)
                Exit While
            End If
        End While
        sr.Close()