More VB.Net Exercise - Visual Basic Programming Course

Imports System
Imports System.IO
Namespace More
    Class Program
        Private Shared Sub Main(ByVal args As String())
        End Sub

        Public Sub ShowData(ByVal urlFile As String)
            Dim fichero As StreamReader = New StreamReader(urlFile)
            Dim line As String
            Dim count As Integer = 0

            Do
                line = fichero.ReadLine()

                If line IsNot Nothing Then
                    If count Mod 24 = 0 Then Console.ReadLine()
                    If line.Length > 79 Then line = line.Substring(0, 79)
                    Console.WriteLine(line)
                End If

                count += 1
            Loop While line IsNot Nothing

            fichero.Close()
        End Sub
    End Class
End Namespace