Option Explicit 
 
 
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 Const NERR_Success As Long = 0& 
 
Public Function SendMsg(SendTo As String, Message As String) As Long 
 
Dim WrittenTo() As Byte 
Dim MSGBuffer() As Byte 
 
WrittenTo = SendTo & vbNullChar 
MSGBuffer = Message & vbNullChar 
 
SendMsg = (NetMessageBufferSend(ByVal 0&, WrittenTo(0), ByVal 0&, MSGBuffer(0), _
  UBound(MSGBuffer)) = NERR_Success) 
 
End Function 
 
 
 
Private Sub Command1_Click() 
 
 
' Aufruf der Funktion 
Dim Test 
Dim result 
 
result = SendMsg("XXXXX", Text2) 'XXXXXX = Computername / Benutzername im NW 
 
End Sub