hi
i wrote this piece of code

Private Sub CommandButton1_Click()
Dim ReturnValue
ReturnValue = Shell("c:\windows\system32\telnet", 1) ' Run
Calculator.
For t = 1 To 10000000
Next t
Application.SendKeys "open"
Application.SendKeys ("{Enter}")
End Sub

When i click, the telnet program opens and all i get was

Welcome to Microsoft Telnet Client

Escape Character is 'CTRL+]'

Microsoft Telnet

but did not see "open"
how should sendkeys be done in this case??
thanks