Dim lines() As String = IO.File.ReadAllLines(path)
        For a = (lines.Length - 1) To 0 Step -1
            If lines(a).Trim().Count > 0 Then
                Console.WriteLine("numero ultima riga.....................: " & lines.Length)
                Console.WriteLine("numero ultima riga con caratteri.......: " & a)
                If a + 1 <> lines.Length Then
                    Console.WriteLine("NB.....................................: ci sono righe senza caratteri...")
                End If
                Console.WriteLine("testo della prima riga.................: " & lines(0))
                Console.WriteLine("testo dell' ultima riga con caratteri..: " & lines(a))
                Exit For
            End If
        Next