.
No te recomiendo que lo hagas de esa manera es poco optimo mejor create un protocolo Ej:

Peticion de envio:  SendData <Argumentos>   El servidor debera responde con el mismo mensaje solo que con un true o false segun el caso si es true pasa a mandar el cliente el siguiente comando que serian:
Recepcion de Datos: InfoData <Argumentos> donde argumentos contiene TODA la informacion nesesaria por ejemplo el nombre del archivo, Peso del archivo.
y cuando termine de enviar los datos el servidor que es quien en ese momento esta contando los bytes cuando llegue a el ultimo envie el:
ReportData <Argumentos> donde argumentos es un reporte general y detallo de lo que se recivio.

Ejemplo del flujo:




SDe esta manera tu programa sera maleable y adaptable a un standart en tu programa y no a algo muy lineal... un ejemplo de esto es que mas o menos haci trabaja el protocolo HTTP 1.1 claro es mas complejo pero es similar.

Temibles Lunas!¡.

.
Se a lo que te refieres, pero de manera en la que te di un tip es decisión tuya tomarla/manipularla/moldearla al gusto, igual lo que haces se te hace facil pero es mas laborioso en la forma practica aun que ahorita no lo sientas asi cuando quieras editar el programa uff te daras topes, ademas u protocolo que sea moldeable no solo servira con archivos puede servir para un key logger remoto, envió de cualquier tipo de información bueno vaya es mas dinamico y su código es mas re-utilizable, es decir que tu codigo puede reutilizr ese protocolo con números que indican algo a el servidor o al cliente y por medio de los mismo saber que se esta haciendo (Select Case), asi da igual que tengas 10, 20 30 o 1000 acciones distintas...

por utimo tu problema de los sockets se resuelve con esto que te menciono, ya que si sigues haciendo eso digamos que dentro del archivo esta la palabra "teclas" y esa palabra es reservada de alguna manera en tu programa para idenficar los datos respectivos, vaya que dilema no?, Solución un protocolo dinamico...

P.D.: Mo tomes una solucion apra algo en espesifico moldeala para varios casos no le cierres las expanciones posibles, si tomas la desicion de hacer el protocolo te recomiendo antes agarrar una hoja de papel y escribir hay cada parabra o comando reservado y su forma de la manera mas reducida moldeable y adaptable posible, tomando en consideracion casos nulos y Medios ( parametros completos o medios con en el ejemplo anterior ).

Dulces Lunas!¡.

:/ nadie me puede ayudar?

es que lo que necesito es que me ayuden a deducir como hacer para que este code envie bien los datos, envia todos los datos pero cada 1024 bytes se repite la palabra "*Teclas*" y que supuestamente no tendria que aparecer porque al principio del code borro los primeros 8 digitos que corresponden a la frase *Teclas* pero igual lo escribe en el richtextbox :S

@ŞCØRPIØN-X3@

Es cierto pero no es cierto, en primera si estuvieras trabajando directamente con las apis podrias cambiar los buffers, y en segunda por que ese buffer ya esta administrado ( en el OCX ) en otras palabras yo puedo mandar esto sin problemas!¡.

Este código ya te lo había dado y es lo mismo que haces tu solo que sin un do loop que es innecesario,

 
const sfile as string = "C:\Archivo.txt"
Dim bBuff() As byte  '  // usamos byte por que con string nos consumira el doble de memoria.
Dim ff      As Integer
    if (dir(sfile,vbarchive)<>"") then
        ff = FreeFile
        Open (sfile) For Binary As ff
            if ( LOF(ff) > 0 ) then
                redim bBuff( 0 to (LOF(ff)-1) ) ' // con una string seria    sBuff=space(LOF(ff))    sin el "-1"
                Get ff, , bBuff
            end if
        Close ff
        Form1.Winsock1.SendData bBuff
    end if
 
 

Si traduces lo que te he dicho aqui podras hacerlo facilmente...

En el servidor en el DataRequest vendra a ser esto mas o menos asi:

 
if not (bCmd1 and bCmd2) then
        bCmd1 = ("comando1" = left$(vData,8) and bCmd2 = false)
        bCmd2 = ("comando2" = left$(vData,8) and bCmd1 = false)
elseif bCmd1 then
'// To lo que se resiva ahora sera del comando1
elseif bCmd2 then
'// To lo que se resiva ahora sera del comando2
else
'// comando Erroneo
end if
 
 

Igual es solo una idea no esta completo, Deberias depurar tu codigo y quitar ese Do Loop y armar el buffer ya que no hace nada importante, aun que quisas querias mandar el archivo por paquetes de 1024b, entonces hay le falto meter dentro la instruccion del winsock, pero si no es eso, entonces nesesitas limpiar la variable del servidor, es decir pueden ser mil y un cosas.

Dulces Lunas!¡.
.