Visual Basic - Vbkey

Hola, me esta dando problemas el siguiente codigo, me sale el MSG:
RUN-TIME error 13
type mismatch

He esta probando de diferentes maneras pero me sale lo mismo, este es el codigo me da el fallo cuando pasa por el "CALL"

Dim Camp As String
camp = "H"
Call DAR_Tecla(vbKey & camp)

Muchas Gracias

¿Cómo declaras el parámetro de entrada en la función DAR_Tecla?

tengo declarado esto:


Call keybd_event(Tecla, 0, 0, 0)

Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)

NO, no es eso!

Me refiero al parámetro de entrada de la función o Sub

Function DAR_Tecla(ESTEESELPARAMETRODEENTRADA AS ....)

Esto es entero:

Sub Dar_Tecla(Tecla As Long)

Call keybd_event(Tecla, 0, 0, 0)

Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)

End Sub

Efectivamente, estás intentando pasar como argumento una cadena cuando el procedimiento espera un Long.

Prueba así

Dim Camp As Long
Camp = Asc("H")
Call DAR_Tecla(Camp)