[VBCompiler]
LinkSwitches=/SUBSYSTEM:CONSOLE

Option Explicit

Declare Function AllocConsole Lib "kernel32" () As Long
Declare Function FreeConsole Lib "kernel32" () As Long

Const STD_INPUT_HANDLE = -10&
Const STD_OUTPUT_HANDLE = -11&

Declare Function GetStdHandle Lib "kernel32" ( _
ByVal nStdHandle As Long) As Long

Declare Function WriteConsole Lib "kernel32" _
Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, _
lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, _
lpNumberOfCharsWritten As Long, lpReserved As Any) As Long

Declare Function ReadConsole Lib "kernel32" _
Alias "ReadConsoleA" (ByVal hConsoleInput As Long, _
lpBuffer As Any, ByVal nNumberOfCharsToRead As Long, _
lpNumberOfCharsRead As Long, lpReserved As Any) As Long

Sub Main()
 Dim hOutput As Long, hInput As Long
 Dim cWritten As Long, cRead As Long
 Dim strHello As String, bRead As Byte
  
 hOutput = GetStdHandle(STD_OUTPUT_HANDLE)
 hInput = GetStdHandle(STD_INPUT_HANDLE)
 
 strHello = "Hello, world!" & vbCrLf & _
 "Press <Enter> to close." & vbCrLf
 
 WriteConsole hOutput, ByVal strHello, _
 Len(strHello), cWritten, 0

 
 ReadConsole hInput, bRead, 1, cRead, 0
 
 FreeConsole
End Sub 'Main