Posto il codice per l'accesso al file
%
Try
Dim r As New IO.StreamReader(PathFile)




While r.Peek <> -1

console.writeline(r.readline())
End While


r.Close()


Catch ex As IOException
Console.WriteLine(ex.Message)
End Try
%