Access - Sendkeys

Hola me gustaría saber como podría hacerle en mi programa para que se espere unos segundos y envié los sendkeys después de abrirse el programa seleccionado. Este es el código que estoy usando

Timer1.Start()
AppActivate("Bloc de notas")
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")

Después de abrirse el Bloc de notas a los 2 segundos enviar las pulsaciones al teclado



Muchas Gracias por su Atención.

Sintaxis
SendKeys string[, wait]
La sintaxis de la instrucción SendKeys consta de estos argumentos con nombre:

Parte Descripción
string Requerido. Expresión de cadena que especifica las pulsaciones de teclas que se van a enviar.
wait Opcional. Valor Boolean que indica el modo de espera. Si este valor es False (predeterminado), se devuelve el control al procedimiento inmediatamente después de enviar las pulsaciones. Si es True, se procesan las pulsaciones antes de devolver el control al procedimiento.



con esta instrucion pone el foco en un objeto
TextBox1.setfocus

despues
SendKeys "ENTER}", True