For each reverse

Dim datatxt() As String = File.ReadAllLines("archivo.txt")

For Each s As String In datatxt.Reverse
Next