FromUser en API NetMessageBufferSend (Net Send)

Hola!
Estoy con un cÃ³digo de la API-Guide que lo que hace es a travÃ©s de la API NetMessageBuff erSend enviar un mensaje por LAN como si fuera un "net send".
El cÃ³digo que viene es este:

Código:

Private Declare Function NetMessageBufferSend Lib _
"NETAPI32.DLL" (yServer As Any, yToName As Byte, _
yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
FromUser As String, BodyMessage As String) As Boolean

Dim RcptTo() As Byte
Dim From() As Byte
Dim Body() As Byte

RcptTo = RcptToUser & vbNullChar
From = FromUser & vbNullChar
Body = BodyMessage & vbNullChar

If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
Body(0), UBound(Body)) = NERR_Success Then
SendMessage = True
End If

End Function
Private Sub Form_Load()
'Example created by X-MaD (x-mad@zolnetwork.com)
'Visit his website at http://www.zolnetwork.com/x-mad
Dim RetVal As Boolean
RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub

Pues bien. Asi, si tienes el servicio Messenger activo, funciona. El caso es que todo lo hace bien excepto lo de poner el From que se lo come en la funcion y pone un ByVal 0&.
He pensado que para conseguir que mandara el From podrÃa cmabiar una parte de la funciÃ³n:

If NetMessageBuff erSend(ByVal 0&, RcptTo(0), From(0), _
Body(0), UBound(Body)) = NERR_Success Then
SendMessage = True
End If

Pero al hacer esta modificaciÃ³n deja de funcionar. Alguien sabe como hacer que funcione??

Gracias y salu2