C'è gia un servizio che permette di farlo
usa questo comando:

Shell("c:/windows/system32/net.exe send " & dest.Text & " " & mex.Text)

dove nel campo dest c'è il nome del pc del destinatario e nel campo mex il messaggio