Querés enviar instrucciones a una ventana de consola o querés llamar tu aplicación desde consola y que devuelva algún texto?
Sendkeys funciona perfectamente utilizándolo con FindWindow + SetForegroundWindow + DoEvents

Private Declare Function FindWindowA Lib "user32" (ByVal sClassName As String, ByVal sWindowTitle As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal lhWnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Const sCommand As String = "Echo ""Hola"""
Private Sub Form_Load()
Dim h As Long
h = FindWindowA("ConsoleWindowClass", vbNullString)
If h = 0 Then Exit Sub
Call SetForegroundWindow(h)
DoEvents
Dim i As Long
For i = 1 To Len(sCommand)
If GetForegroundWindow() <> h Then Call SetForegroundWindow(h)
DoEvents
Call SendKeys(Mid$(sCommand, i, 1))
DoEvents
Next
If GetForegroundWindow() <> h Then Call SetForegroundWindow(h)
Call SendKeys("+{ENTER}")
DoEvents
Call Unload(Me)
End Sub