Visual Basic - API cómo enviar .... ?

Empleando la api estoy usando sendmessage para mandar a otra aplicacioón una serie de pulsaciones con el teclado, alguien sabe cómo mandar pulsaciones complejas como por ejemplo:

a) el símbolo "/" que sale de pulsar shift + 7
b) el símbolo "_" que sale de pulsar shift + "-"

Gracias

Fijate con esto, a ver que ocurre, 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)

Pues no funciona de hecho ni siquiera manda la cadena correctamente porque la traduccion a teclas virtuales no debe de coincidir.

El codigo ascii no concuerda con las virtual key.

Y en todo caso, cómo simularias que los caracteres que no tienen asignada una virtual key ?

A mi me funciona sin problemas. Por el resto fijate en: http://miarroba.com/foros/ver.php?foroid=226398&temaid=1188533

Le echare un ojo gracias

Creo que el error no radica en el codigo en si, solo que hay que distinguir si el block de notas esta en ingles o español, a mi me funciono pero como tengo elblock de notas en español solo hay que cambiar lngHwnd = FindWindow("Notepad", "Untitled - Notepad") por este
lngHwnd = FindWindow("Notepad", "Sin título: Bloc de notas"), lo que cambia es el nombre del titulo que en mi caso esta en español, por lo demas asi debe quedar.