Private Function GetLastLines(ByVal file As String, ByVal count As Integer) _
      As String()
        Try
            Dim content() As String = IO.File.ReadAllLines(file, _
              System.Text.Encoding.Default)
            If content.Length <= count Then Return content
 
            Dim tmpList As New List(Of String)
            For index As Integer = content.Length - (count + 1) To _
              content.Length - 1
                tmpList.Add(content(index))
            Next
            Return tmpList.ToArray
        Catch ex As Exception
            Throw ex
        End Try
    End Function