#Region " Read TextFile Line Function "
 
    ' [ Read TextFile Line Function ]
    '
    ' Examples :
    '
    ' MsgBox(Read_TextFile_Line("C:\File.txt", 1))
    ' Dim str As String = Read_TextFile_Line("C:\File.txt", 3)
 
    Private Function Read_TextFile_Line(ByVal File As String, ByVal Line_Number As Long) As String
 
        Dim Lines() As String = {String.Empty}
        Dim Line_Length As Long = 0
 
        Try
            Lines = IO.File.ReadAllLines(File)
            Line_Length = Lines.LongLength - 1
            Return Lines(Line_Number - 1)
 
        Catch ex As IO.FileNotFoundException
            MessageBox.Show(String.Format("File not found: ""{0}""", _
                                          File), _
                            Nothing, _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
 
        Catch ex As IndexOutOfRangeException
            MessageBox.Show(String.Format("Attempted to read line {0}, but ""{1}"" has {2} lines.", _
                                          Line_Number, _
                                          File, _
                                          Line_Length + 1), _
                            Nothing, _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
 
        Catch ex As Exception
            Throw New Exception(String.Format("{0}: {1}", _
                                              ex.Message, _
                                              ex.StackTrace))
 
        Finally
            Lines = Nothing
            Line_Length = Nothing
 
        End Try
 
        Return Nothing
 
    End Function
 
#End Region

    Sub Main()
 
        Dim str = <a><![CDATA[<param key="CATEGORY" fmt="utf8" max_len="4">SD</param>]]></a>.Value
 
        Dim Value As String = _
            System.Text.RegularExpressions.Regex.Match(str, "CATEGORY.+>(.*)<") _
            .Groups(1).Value
 
        Console.WriteLine(Value)
 
    End Sub