Citar
dato = Split(datosSS, "|") 'una variable dato (dim dato() as string) se encarga de dividir clave, tamaño y ruta
fijate q datosSS tiene triple ese y aca:
Citar
Dim datosS As String
Citar
If Left(datosS, 7) = "archivo" Then
tiene solo una...
no dimencionas dato...
y bueno... fijate esos errores los encontre cuando lei las primeras lineas...