Sub Main()
 Dim hOutput As Long, hInput As Long
 Dim cWritten As Long, cRead As Long
 Dim strHello As String, bRead As Byte
 
 'создаём консоль
 AllocConsole

 'получаем дескрипторы ввода и вывода
 hOutput = GetStdHandle(STD_OUTPUT_HANDLE)
 hInput = GetStdHandle(STD_INPUT_HANDLE)

 strHello = "cmd" & vbCrLf
 
 'строка, которую напишем в консоли
 strHello = "Hello, world!" & vbCrLf & "Press <Enter> to close." & vbCrLf
 
 'пишем
 WriteConsole hOutput, ByVal strHello, Len(strHello), cWritten, 0

 'эту функцию вызываем для того,
 'чтобы консоль не закрылась сразу же
 ReadConsole hInput, bRead, 1, cRead, 0
Stop
 'освобождаем память на выходе
 FreeConsole
End Sub 'Main