El código del servidor está mal, así lo único que vas a conseguir es crear un archivo con el primer byte que recibas del cliente. Lo que tienes que hacer es envíar desde el cliente el tamaño del archivo, almacenarlo en el servidor, e ir almacenando en una variable lo que se recibe:
Winsock1.getdata datos
archivo = archivo & datos
if len(archivo) = tamañodelarchivo then
open bla bla bla
end if

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Mr. Cuando trabajes con WinSock, debes dividir el archivo en varios bloques para que la información llegue completa.

tonterías