appActivate and sendkeys to a simple telnet window?

[TDQWERTY]

As simple as this:

Dim telnet
telnet = Shell("telnet.exe", vbNormalFocus)
AppActivate telnet, True
SendKeys "open", True

but why it doesn't work?