Visual Basic - mandar texto textbox a una aplicacion

hola ya se q parece muy facil pero soy novatisimo y he buscado informacion por ahi pero no me funciona nada.

tengo un boton y un textbox y lo q quiero hacer es q cuando apriete el boton le mande lo que yo haya escrito en el textbox a una aplicacion ya abierta con el comando shell.

lo estoy haciendo con el comando sendkeys pero nada de nada.

haber si me echais una manita.
Private Sub Command1_Click()
a = Text1.Text
Shell ("PVW32Con.exe")
SendKeys "{a}", True
End Sub

pero no me funcionaaaaaaaaaaaaaa, ahhh pero si tiene q ser facilisimo

gracias

Ahi te mando un ejemplo que si funciona
tu te enacrgas de afinarlo
****************************
Private Sub Command1_Click()
Dim a As String
Dim x
a = Text1.Text
x = Shell("notepad", 1)
SendKeys a, 1
End Sub
'tipo puede ser :
'1, 5, 9 Normal con el foco
'2 Minimizada con el foco (por defecto)
'3 Maximizada con el foco
'4, 8 Normal sin el foco
'6, 7 Minimizada sin el foco

Dim retval
Dim exc As Excel.Application

retval = Shell("C:\WINDOWS\NOTEPAD.EXE", 1)
SendKeys ("PEPITO")

Saludos , Carlos

Lo que pides no es algo relativamente sencillo porque varía según las aplicaciones a las que quieras enviar las pulsaciones. Deberías utilizar BringWindowToTop para pasar la ventana que quieres hacia adelante y luego, keybd_event, por ejemplo para el Notepad:

lngHwnd = FindWindow("Notepad", "Untitled - Notepad")

BringWindowToTop lngHwnd

strProv = "Esta es una prueba"

For i = 1 To Len(strProv)
keybd_event Asc(Mid(strProv, i, 1)), 0, 0, 0
keybd_event Asc(Mid(strProv, i, 1)), 0, KEYEVENTF_KEYUP, 0
Next i

keybd_event 13, 0, 0, 0
keybd_event 13, 0, KEYEVENTF_KEYUP, 0

Las funciones son:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long

Public Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)