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