Set WshShell = WScript.CreateObject("WScript.Shell")
T1 = "Asistencia"
Sub KeyIt(Keystroke, WinTitle)
  WshShell.AppActivate WinTitle
  WScript.Sleep 500
  WshShell.SendKeys Keystroke
End Sub
Call KeyIt( "{TAB}{TAB}{TAB}{TAB}{TAB}", T1)
WshShell.SendKeys "{ENTER}"
Wscript.Quit