Console output

I am trying to redirect the output generated by the console window to a file, and read it out. the following is what I have so far, and it works. It just does not write out the command to the file. Can anybody help me out a bit, it's probably just a small thing...

Private Const NORMAL_PRIORITY_CLASS = &H20
Private Const STARTF_USESTDHANDLES = &H100
Private Const STARTF_USESHOWWINDOW = &H1
Private Const STILL_ACTIVE = &H103
Private Const CREATE_NEW_CONSOLE = &H10
Private Const INFINITE = &HFFFF

Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const CREATE_ALWAYS = 2
Private Const CREATE_NEW = 1
Private Const OPEN_ALWAYS = 4
Private Const OPEN_EXISTING = 3
Private Const TRUNCATE_EXISTING = 5
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000
Private Const FILE_FLAG_NO_BUFFERING = &H20000000
Private Const FILE_FLAG_OVERLAPPED = &H40000000
Private Const FILE_FLAG_POSIX_SEMANTICS = &H1000000
Private Const FILE_FLAG_RANDOM_ACCESS = &H10000000
Private Const FILE_FLAG_SEQUENTIAL_SCAN = &H8000000
Private Const FILE_FLAG_WRITE_THROUGH = &H80000000

Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type


Private Type STARTUPINFO
        cb As Long
        lpReserved As String
        lpDesktop As String
        lpTitle As String
        dwX As Long
        dwY As Long
        dwXSize As Long
        dwYSize As Long
        dwXCountChars As Long
        dwYCountChars As Long
        dwFillAttribute As Long
        dwFlags As Long
        wShowWindow As Integer
        cbReserved2 As Integer
        lpReserved2 As Long
        hStdInput As Long
        hStdOutput As Long
        hStdError As Long
End Type

Private Type PROCESS_INFORMATION
        hProcess As Long
        hThread As Long
        dwProcessId As Long
        dwThreadId As Long
End Type

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long
Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetLastError Lib "kernel32" () As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Function StartProcess(ByVal sProgram As String) As String
    Dim stInfo As STARTUPINFO
    Dim prInfo As PROCESS_INFORMATION
    Dim sTmpFile As String
    sTmpFile = App.Path & "\test2.cof"
   
    stInfo.cb = Len(stInfo)
    stInfo.lpReserved = vbNull
    stInfo.wShowWindow = 5
    stInfo.cbReserved2 = 0
    stInfo.lpReserved2 = vbNull
    stInfo.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
       
    Dim hFile As Long
    hFile = CreateFile(sTmpFile, GENERIC_READ Or GENERIC_WRITE, 0, ByVal CLng(0), CREATE_ALWAYS, 0, ByVal CLng(0))
   
    If hFile Then
        stInfo.hStdOutput = hFile
    End If
   
    Dim ret As Long, ExitCode As Long, lProcessTime As Long
    lProcessTime = 0
   
    ret = CreateProcess(sProgram, vbNullString, ByVal CLng(0), ByVal CLng(0), True, CREATE_NEW_CONSOLE, ByVal CLng(0), vbNullString, stInfo, prInfo)
    If (ret = 0) Then MsgBox "Not created!"
    Do
        GetExitCodeProcess prInfo.hProcess, ExitCode
   
        lProcessTime = lProcessTime + 500
        Sleep 500 '1000 = 1 second.
        If (lProcessTime > 20000) Then
            MsgBox "Processing exceeds time limit!"
            GoTo closeHandler
        End If
    Loop While ExitCode = STILL_ACTIVE
    CloseHandle prInfo.hProcess
   
   
    If hFile Then
        Dim numOfBytes As Long
        Dim buf
        numOfBytes = GetFileSize(hFile, ByVal 0&)
        CloseHandle (hFile)
        If (numOfBytes >= 0) Then
            buf = String(numOfBytes, "*")

            hFile = lopen(sTmpFile, 0)
            lread hFile, buf, numOfBytes
            lclose (hFile)
   
            ' Returns
            StartProcess = buf
        End If
        'DeleteFile (sTmpFile)
    End If
   
    Exit Function
closeHandler:
   

End Function


Public Function DoCommand(ByVal sCommand As String) As String
    MsgBox StartProcess("c:\winnt\system32\ping.exe")
End Function