Dim bfile() As Byte = IO.File.ReadAllBytes("file.txt")
fluxconnected(1).Write(bfile, 0, bfile.Length)

Dim bfile(cliente.Available - 1) As Byte
flux.Read(bfile, 0, bfile.Length)
IO.File.WriteAllBytes("filereceived.txt", bfile)