libreria o complemento al codigo?

Fecha = Left(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta & Archivo), " ") - 1)

... el siguiente codigo es para leer solo la fecha en que fue modificado un archivo
tengo un problema operando con el mismo ofice 2003 en una y otra pc
en una de ellas algo pasa que no me reconoce la fecha por lo tanto me arroja el siguiente dato 12:00 am.
quisiera saber si es necesario validar que alguna libreria la tenga activa? o bien que pudiera ser?
el codigo es el siguiente:
Sub OnlyDateLastmod_VT()
Application.ScreenUpdating = False
Dim Ruta As String, Archivo As String, Fecha As Date, Fila As Integer
Ruta = "\\200.200.200.30\w\"
Archivo = Dir(Ruta & "datos.xls")
'Range("a1:b1") = Array("Nombre", "Ult. modif")<--Edita Titulos en Celdas
'Do While Archivo <> ""
'Fila = Fila + 1
Fecha = Left(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta & Archivo), " ") - 1)
Range("d1").Offset(Fila) = Array(Fecha)
'Range("a1").Offset(Fila).Resize(, 2) = Array(Archivo, Fecha)
Archivo = Dir()
' Loop
'Range("a1:b1").EntireColumn.AutoFit
'Range("a:b").Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlYes
End Sub