Bom dia!!

Fernado, eu confesso que estou por fora, mas... talve sirva de inspiração.
Outra fonte: http://allapi.mentalis.org/apilist/NetM ... Send.shtml

Sub ExecuteNetSend()
 'Criado por: [b]Bob Phillips[/b]
Dim objShell As New WshShell
Dim objExec As WshExec
Dim strComputer As String
Dim strMessage As String
Dim ReadAll As String

strComputer = "ComputerNameHere"
strMessage = "Testing Net Send"


Set objExec = objShell.Exec("Net Send " & strComputer & " " & strMessage)

Do While Not objExec.StdOut.AtEndOfStream
    ReadAll = objExec.StdOut.ReadAll
Loop

MsgBox ReadAll, vbInformation, "Net Send Results"

End Sub

Att

Fernando, boa tarde.

Só lembrando que o NET SENT no Windows agora tem um substituto, que é o MSG.
MSG Usuário Mensagem