sendback data

Hi,

   the following is the scenario: my server app fires an TCPScoket 
whenever a client wishes to connect...then i catch client data in the 
dataavaible sub:

sub dataavaible()
{
  Dim CRLF As String
  
  app.Update_EditField(me.ReadAll)
  
  CRLF = chr(13) + chr(10)
  
  // me.Write "HTTP/1.1 200 OK" + CRLF + CRLF + "Hello World!!!"
}

Now I'd like to send Editfield.text data back to the client...but only 
when I press a push button...how would I go about doing that??

do I have to do:

while (window1.pushbutton pressed)

   me.Write Editfield1.text

wend