Считать текст с консольного приложения

Option Explicit On
Option Strict On
 
Imports System.Runtime.InteropServices
Public Class TEST
    Private Enum STD_HANDLES
        STD_INPUT_HANDLE = -10
        STD_OUTPUT_HANDLE = -11
        STD_ERROR_HANDLE = -12
    End Enum
 
    <StructLayout(LayoutKind.Explicit, CharSet:=CharSet.Auto)> _
    Private Structure CHAR_TYPE
        <FieldOffset(0)> _
        Public UnicodeChar As Short
 
        <FieldOffset(0)> _
        Public AsciiChar As Byte
    End Structure
 
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
    Private Structure CHAR_INFO
        Public [Char] As CHAR_TYPE
        Public Attributes As Short
    End Structure
 
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure COORD
        Public X As Short
        Public Y As Short
 
        Public Sub New(ByVal X As Short, ByVal Y As Short)
            Me.X = X
            Me.Y = Y
        End Sub
    End Structure
 
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure SMALL_RECT
        Public Left As Short
        Public Top As Short
        Public Right As Short
        Public Bottom As Short
 
        Public Sub New(ByVal Left As Short, ByVal Top As Short, ByVal Right As Short, ByVal Bottom As Short)
            Me.Left = Left
            Me.Top = Top
            Me.Right = Right
            Me.Bottom = Bottom
        End Sub
    End Structure
 
    Private Declare Function GetStdHandle Lib "kernel32" ( _
    ByVal nStdHandle As STD_HANDLES) As IntPtr
 
    Private Declare Auto Function ReadConsoleOutput Lib "kernel32" ( _
    ByVal hConsoleOutput As IntPtr, _
    ByRef lpBuffer As CHAR_INFO, _
    ByVal dwBufferSize As COORD, _
    ByVal dwBufferCoord As COORD, _
    ByRef lpReadRegion As SMALL_RECT) As Boolean
 
    Public Sub Main()
        Console.WriteLine("*-*-*-*")
        Console.WriteLine("*-*-*-*")
        Console.WriteLine("*-*-*-*")
        Console.WriteLine("*-*-*-*")
 
        Dim hConsoleOutput As IntPtr = GetStdHandle(STD_HANDLES.STD_OUTPUT_HANDLE)
        Dim Buffer(27) As CHAR_INFO
        Dim BufferSize As New COORD(7, 4)
        Dim BufferCoord As New COORD(0, 0)
        Dim ReadRegion As New SMALL_RECT(0, 0, 6, 3)
 
        MsgBox(ReadConsoleOutput(hConsoleOutput, Buffer(0),
        BufferSize, BufferCoord, ReadRegion))
 
        For i As Integer = 0 To 27
            MsgBox(Chr(Buffer(i).Char.UnicodeChar))
        Next
    End Sub
End Class