you need to shell a command window with "cmd.exe" , then with that in focus
use SENDKEYS with the text you want to type into the command window

"Steven" wrote:

I am trying to send a network message to myself without success.

Sub SendNetorkMessage()
Dim machinename As String
machinename = "Acct010_XP"
Shell "NET SEND " & machinename & " 'Good Morning'"
End Sub

I do not get anything. That is my machine name I am sure. What is incorrect?

Thank you,

Steven