CMD öffnen, offen halten und befehl übergeben

Option Explicit
Public befehlshilfe As String
Private Declare Function WriteConsole Lib "kernel32" Alias _  
        "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal _  
        lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, _
        ByRef lpNumberOfCharsWritten As Long, lpReserved As Long) As Long
        

Private Declare Function AllocConsole Lib "kernel32" () As Long  
Private Declare Function FreeConsole Lib "kernel32" () As Long  
Private Const STD_OUTPUT_HANDLE As Long = -11&
Private hConsoleIn As Long
Private hConsoleOut As Long
Private hConsoleErr As Long
Private Declare Function GetStdHandle Lib "kernel32" _  
        (ByVal nStdHandle As Long) As Long
Private Declare Function sleep Lib "kernel32" (ByVal dwMilliseconds&)  


'******************************************************************  
'Klickereignis und dann soll es passieren  
'******************************************************************  
Private Sub button_programmstarten_Click()

    Call AllocConsole
    
    shell "C:\Programm.exe" , vbnormalfocus  
    
    hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
    Call ConsolePrint("Hallo, wer immer Du auch bist!" & vbCrLf)  


Me.button_cancel.Caption = "Beenden"  
End Sub

Private Sub ConsolePrint(szOut As String)
    Dim BytesWritten As Long
    
    Call WriteConsole(hConsoleOut, szOut, Len(szOut), BytesWritten, 0&)
End Sub

'******************************************************************  
'Klickereignis und dann soll es passieren  
'******************************************************************  

Private Sub button_programmstarten_Click()
Dim programm As String
Dim progid


programm = Me.txtcommand
progid = Shell(programm, vbNormalFocus)
'******************************************************************  
'Schleife damit Progid auch sicher gefüllt ist  
'******************************************************************  

Do
If progid <> 0 Then Exit Do
sleep (50)
Loop
'******************************************************************  
'Cmdfnester als aktive App setzen  
'******************************************************************  

AppActivate progid, 1
'******************************************************************  
'Zu sendende Zeichen  
'******************************************************************  

SendKeys "abc", 1  
Me.button_cancel.Caption = "Beenden"  
End Sub
'******************************************************************  
'^Benötigte globale function sleep im allgemeinen Teil declariert  
'******************************************************************  
Private Declare Function sleep Lib "kernel32" (ByVal dwMilliseconds&)