Dim S$ = "Hier die 1000 Zeichen"
        Dim barr() As Byte = System.Text.Encoding.ASCII.GetBytes(S$)
        Dim sock As New Sockets.Socket(Sockets.AddressFamily.InterNetwork, _
          Sockets.SocketType.Stream, Sockets.ProtocolType.Tcp)
        sock.Send(barr, barr.Length, Sockets.SocketFlags.None)