Cita:
Iniciado por guif 
ahora en la linea:
Function GetDate(s As String) As Date
GetDate = CDate(Mid(s, Len(s) - 11, 10))
End Function
me marca: getdate = 0:00:00
tal vez porque en red no te devuelva la fecha de modificación... intenta ejecutar paso a paso a ver qué fecha te devuelva...