Option Explicit
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:
StdWrite s
End Sub
 
 
Function StdWrite(ByVal Text As String) As Long
Const STD_OUTPUT_HANDLE = -11&
Dim Handle As Long
 
Handle = GetStdHandle(STD_OUTPUT_HANDLE)
WriteFile Handle, ByVal Text, Len(Text), StdWrite, ByVal 0&
End Function