I'm new to VBScript. I am attempting to use sendkeys (or another method) to input text into a desktop application. However, my code is not working properly to input text into the text boxes (user name and password). My code is below:

Dim objShell
'Set objShell = CreateObject("Wscript.Shell")
Set objShell = WScript.CreateObject("Wscript.Shell")
Set toolkit = CreateObject("Vbsedit.Toolkit")

objShell.run """C:\Users\%USERNAME%\app.exe"""
For Each window In toolkit.TopLevelWindows
  If InStr(1,window.WindowTitle,"App",vbTextCompare)>0 Then
    WScript.Sleep 5000
    window.Click 1000,500
    WScript.Sleep 2000
    objShell.Sendkeys "email address"
    WScript.Sleep 1000
    objShell.Sendkeys "{TAB}"
    'objShell.Sendkeys chr(9)
    WScript.Sleep 1000
    objShell.Sendkeys "password"
    WScript.Sleep 1000
    objShell.Sendkeys "{ENTER}"
  End If
The output of running this code (video) can be found here: https://www.dropbox.com/s/dosnbwkcey...Issue.mp4?dl=0

Any ideas for how to get text to properly input?

Thanks so much!