ArrayList duplicate a text file VB.Net Exercise - Visual Basic Programming Course

Imports System
Imports System.IO
Imports System.Collections
Namespace TextFileInvert
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Console.Write("Introduce el nombre del fichero: ")
            Dim nombreArchivo As String = Console.ReadLine()

            If Not File.Exists(nombreArchivo) Then
                Console.Write("El archivo no existe!")
                Return
            End If

            Try
                Dim miArchivo As StreamReader
                miArchivo = File.OpenText(nombreArchivo)
                Dim line As String
                Dim miLista As ArrayList = New ArrayList()

                Do
                    line = miArchivo.ReadLine()
                    If line IsNot Nothing Then miLista.Add(line)
                Loop While line IsNot Nothing

                miArchivo.Close()
                Dim miArchivoAlReves As StreamWriter = File.CreateText(nombreArchivo & "-reverse.txt")
                Dim tamanyoArchivo As Integer = miLista.Count

                For i As Integer = tamanyoArchivo - 1 To 0
                    miArchivoAlReves.WriteLine(miLista(i))
                Next

                miArchivoAlReves.Close()
            Catch e As Exception
                Console.WriteLine("Error, " & e.Message)
            End Try

            Console.ReadLine()
        End Sub
    End Class
End Namespace