No need for any delay. alt+shift switches to Hebrew immediatelyYou can easily implement a short delay with CallSubPlus: CallSubPlus - CallSub with explicit delay
Sub txtShem_FocusChanged (HasFocus As Boolean)
Dim wr As AWTRobot
wr.RobotSpecialKeyPress("alt")
wr.RobotSpecialKeyPress("shift")
wr.RobotSpecialKeyRelease("alt")
wr.RobotSpecialKeyRelease("shift")
End Sub