DIM strNachricht,strEmpfaenger as string
 
strEmpfaenger="Dein Empfänger der Nachricht"
strNachricht="Deine Nachricht in kurz als Text"
 
Call Shell(Environ("COMSPEC") & " /C net send " & strEmpfaenger & chr(34) & _
  strNachricht & chr(34), vbHide)
 
Environ("COMSPEC") fragt den Kommandozeileninterpreter ab und führt im _
  Zusammenhang mit "call shell" einen Shell-Aufruf durch, bei dem dann der _
  Nachrichteninhalt übergeben wird. "chr(34)" übergibt einen Wert für die _
  Anführungszeichen. Insgesamt steht dort nichts anderes als:
 
net send Empfänger "Nachricht"
 
Hinweis: Natürlich muss der Nachrichtendienst funktionieren.