call shell ("net send " & IP & Msg)

Option Explicit
 
'   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
 
'   Konstante, die von der API geliefert wird
Private Const NERR_Success As Long = 0&
 
Public Function SendMsg(SendTo As String, Message 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
 
 
    '   Speicher initialisieren (Strings in WideChar konvertieren)
    WrittenTo = SendTo & vbNullChar
    MSGBuffer = Message & vbNullChar
 
    '   Meldung absetzen
    SendMsg = (NetMessageBufferSend(ByVal 0&, WrittenTo(0), ByVal 0&,  _
    MSGBuffer(0), UBound(MSGBuffer)) = NERR_Success)
 
End Function
 
Private Sub Command1_Click()
  ' Aufruf der Funktion
  Dim result
  result = SendMsg(Text1, Text2)
End Sub