Siguiendo por la linea de hystd, tu tienes esto:
Cita:
Dim TextoRecibido As String
Winsock1.GetData TextoRecibido
ContenidoTextoRecibido = ContenidoTextoRecibido + TextoRecibido
If Right(TextoRecibido, 7) <> "/\Fin/\" Then Exit Sub
TextoRecibido = ContenidoTextoRecibido
ContenidoTextoRecibido = ""
'Procedimiento con el texto que se descargo
pues ya haría un pequeño cambio:
Cita:
Dim TextoRecibido As String
ContenidoTextoRecibido = ""
Winsock1.GetData TextoRecibido
ContenidoTextoRecibido = ContenidoTextoRecibido + TextoRecibido
If Right(TextoRecibido, 7) <> "/\Fin/\" Then Exit Sub
TextoRecibido = ContenidoTextoRecibido
'Procedimiento con el texto que se descargo
Aunque con lo poco que muestras a lo mejor ya puede que hayas inicializado la variable (que en teoría te debería funcionar, pero si esta vacía -Empty- puede darte problemas)... en otro lugar, por ello hay la opción:
Cita:
Dim TextoRecibido As String
Winsock1.GetData TextoRecibido
if not(ContenidoTextoRecibido<>Empty) then
ContenidoTextoRecibido=""
End If
ContenidoTextoRecibido = ContenidoTextoRecibido + TextoRecibido
If Right(TextoRecibido, 7) <> "/\Fin/\" Then Exit Sub
TextoRecibido = ContenidoTextoRecibido
ContenidoTextoRecibido = ""
'Procedimiento con el texto que se descargo
Así si la variable no se uso nunca, pues la inicializas, y si ya fue inicializada pues no haces nada
Un Saludo
PD: hago lo de variable<>Empty y no variable=Empty, porque me encontre que esto me daba muchos problema en VBA y en VB6 también tuve un par de veces problemas con ello, por eso siempre uso la otra forma.