En realidad no he visto que se pudiera escribir en la consola con SendKeys, pero para ello bien podrías usar la API
WriteConsole de kernel32
'En un Módulo Bas
Declare Function AllocConsole Lib "kernel32" () As Long
Declare Function FreeConsole Lib "kernel32" () As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long
Declare Function SetConsoleCtrlHandler Lib "kernel32" (ByVal HandlerRoutine As Long, ByVal Add As Long) As Long
Public Const STD_OUTPUT_HANDLE = -11&
Public hConsole As Long
Public Function ConsoleHandler(ByVal CtrlType As Long) As Long
ConsoleHandler = 1
End Function
'En el Formulario tres ommand y un textBox
Public objConsole As New clsConsole
Private Sub cbCloseConsole_Click()
objConsole.CloseConsole
End Sub
Private Sub cbConsoleOutput_Click()
objConsole.SendText (tbConsole.Text)
End Sub
Private Sub cbOpenConsole_Click()
If Not objConsole.OpenConsole Then
MsgBox "Couldn't allocate console"
End If
End Sub
'------> En el siguiente la Classe