Option Explicit
 
Private Declare Function AllocConsole Lib "kernel32.dll" () As Long
Private Declare Function FreeConsole Lib "kernel32.dll" () As Long
 
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) _
  As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, _
lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As _
Long, lpOverlapped As Any) As Long
 
Sub Main()
Dim s As String
s = "Hallo Welt"
'In Ausgabestrom schreiben:
MsgBox StdWrite(s)
End Sub
 
Function StdWrite(ByVal Text As String) As Long
  Const STD_OUTPUT_HANDLE = -11&
  Dim Handle As Long
  AllocConsole
  Handle = GetStdHandle(STD_OUTPUT_HANDLE)
  WriteFile Handle, ByVal Text, Len(Text), StdWrite, ByVal 0&
  FreeConsole
End Function