'   Die API, mit der die Daten verschickt werden
Private Declare Function NetMessageBufferSend Lib "netapi32.dll" ( _
    lpServerName As Any, _
    lpMsgName As Byte, _
    lpFromName As Any, _
    lpBuf As Byte, _
    ByVal lnBufLen As Long _
) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias _
  "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
'   Konstante, die von der API geliefert wird
Private Const NERR_Success As Long = 0&
 
Private Function SendMsg(SendTo As String, Message As String, sAbsender As _
  String) As Long
    '   Speicher reservieren
    Dim WrittenTo() As Byte     '   enthält den Empfänger der Nachricht
    Dim MSGBuffer() As Byte     '   enthält die zu sendende Nachricht
    Dim Absender() As Byte
 
    ' Empfänger kann sein: PC-Name, Name des angemeldeten Users oder IP.
    ' Wird eine Arbeitsgruppe angegeben, wird an alle Computer in dieser
    ' Arbeitsgruppe gesendet
 
    '   Speicher initialisieren (Strings in WideChar konvertieren)
    WrittenTo = SendTo & vbNullChar
    MSGBuffer = Message & vbNullChar
    Absender = sAbsender & vbNullChar
    'ByVal 0&
    '   Meldung absetzen
    SendMsg = (NetMessageBufferSend(ByVal 0&, WrittenTo(0), Absender(0), _
    MSGBuffer(0), UBound(MSGBuffer)) = NERR_Success)
End Function