Messenger

[YODA0340]

I'm currently working on a messenger(using net send), and i've gotton it to send messages just fine, but i need a way to change the text that tells the reciever my computer name to something else. Any Ideas?
(vb.net 2005)

        Dim lretval As Long = Shell("net send " & ReceiverName & _
                     " """ & Message & """", vbHide)