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 WScript.Arguments.Item(0)
WshShell.SendKeys "+{TAB}+{TAB}+{TAB}+{TAB}+{TAB}"
WshShell.SendKeys "{ENTER}"
Wscript.Quit