Something like this:

Dim oShell
oShell = CreateObject("WScript.Shell")
oShell.Run("net send name message")

>Hi
>
>How I make to I cant send emergents messages with .Net.
>
>I wich using net send utility.
>
>Thank'u