creating a VB6 console application capable of piping the output

I have successfully created a console application that outputs text to the console, see the code. However, I can't pipe this to a text file. ie project1.exe > c:\a.txt just creates and empty file.

comments on how to achieve this would be appreciated.

Note; I am also linking the application with link.exe

Option Explicit
Private Declare Function AllocConsole Lib "kernel32" () As Long
Private Declare Function FreeConsole Lib "kernel32" () As Long
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Private Declare Function WriteConsole _
    Lib "kernel32" Alias "WriteConsoleA" ( _
    ByVal hConsoleOutput As Long, _
    ByVal lpBuffer As Any, _
    ByVal nNumberOfCharsToWrite As Long, _
    ByVal lpNumberOfCharsWritten As Long, _
    ByVal lpReserved As Any) _
    As Long

Private Const STD_OUTPUT_HANDLE = -11&



Private Sub Main()
    Dim hConsoleOut As Long
    Dim MsgOut As String
    hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
    MsgOut = "this is a test string"
    WriteConsole hConsoleOut, MsgOut, Len(MsgOut), vbNull, ByVal 0&
    FreeConsole
End Sub

Select allOpen in new window