Отправка сообщения не через net send - VB

Формулировка задачи:

Здравствуйте все!!!
Подскажите как реализовать: надо отправить сообщение пользователю, текст сообщения хранится в базе данных. Желательно чтобы это был кокой-нибудь MsgBox.

Решение задачи: «Отправка сообщения не через net send»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> NetMessageBufferSend Lib _
  <font color="teal">"NETAPI32.DLL"</font> (yServer <font color="blue">As</font> Any, yToName <font color="blue">As</font> <font color="blue">Byte</font>, _
  yFromName <font color="blue">As</font> Any, yMsg <font color="blue">As</font> <font color="blue">Byte</font>, <font color="blue">ByVal</font> lSize <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Const</font> NERR_Success <font color="blue">As</font> <font color="blue">Long</font> = <font color="darkblue"><b>0</b></font>&
<font color="blue">Public</font> <font color="blue">Function</font> SendMessageNet(RcptToUser <font color="blue">As</font> <font color="blue">String</font>, _
   FromUser <font color="blue">As</font> <font color="blue">String</font>, BodyMessage <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> <font color="blue">Boolean</font>
   <font color="blue">Dim</font> RcptTo() <font color="blue">As</font> <font color="blue">Byte</font>
   <font color="blue">Dim</font> From() <font color="blue">As</font> <font color="blue">Byte</font>
   <font color="blue">Dim</font> Body() <font color="blue">As</font> <font color="blue">Byte</font>
   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar

   <font color="blue">If</font> NetMessageBufferSend(<font color="blue">ByVal</font> <font color="darkblue"><b>0</b></font>&, RcptTo(<font color="darkblue"><b>0</b></font>), <font color="blue">ByVal</font> <font color="darkblue"><b>0</b></font>&, _
        Body(<font color="darkblue"><b>0</b></font>), UBound(Body)) = NERR_Success <font color="blue">Then</font>
     SendMessageNet = True
   <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Function</font>
<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
    <font color="blue">Dim</font> RetVal <font color="blue">As</font> <font color="blue">Boolean</font>
    MsgBox <font color="teal">"Soobshenie Dostavlenn="</font> & SendMessageNet(<font color="teal">"127.0.0.1"</font>, <font color="teal">" "</font>, <font color="teal">"Vot eto i esti nashe soobshenie"</font>)
<font color="blue">End</font> <font color="blue">Sub</font>

                        