Function socketSendReceive() As String
        Dim bytes(1024) As Byte
        Dim countBytesFromServer As Int32
 
        'Serverendpunkt beschreiben
        Dim server As New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
          ProtocolType.Tcp)
        Dim serverAddress As IPAddress
        Dim EP As New IPEndPoint(serverAddress, LDBPort)
 
        Dim output As String 'Da gehört dann die Antwort rein
 
 
        serverAddress = IPAddress.Parse(LDBHost)
 
        Try
            'Verbindung aufnehmen
            server.Connect(EP)
 
            'send request to server
            Dim message() As Byte = Encoding.ASCII.GetBytes(request_to_send) _
              'request_to_send ist der String mit den Abfrage befehl
            server.Send(message)
            countBytesFromServer = server.Receive(bytes)
            output = Encoding.ASCII.GetString(bytes, 0, countBytesFromServer)  _
              'da soll die Antwort geschrieben werden, aber es fehlt was!!
 
        Catch e As Exception
            MessageBox.Show(e.ToString)
        Finally
            server.Shutdown(SocketShutdown.Both)
            server.Close()
        End Try
        Return output
 
    End Function    'go back to Procedure Request_Button_Click