Imports System.IO

Module Module1

    Sub Main()

        Dim f As FileStream = File.Open("c:\setup.log", FileMode.Open, FileAccess.Read)
        Dim r As StreamReader = New StreamReader(f)
        Console.Write(r.ReadToEnd)
        r.Close()
        f.Close()
        Console.ReadLine()

    End Sub

End Module