Una de fechas

Un cordial saludo. Tengo otra inquietud sobre fechas, en un post anterior,
necesitaba incluir en una celdala fecha que me traia el nomcre de un
archivo, Juan M, me colaboro y ayudo dandome este codigo.

Sub test()
Dim archivo As String
Dim numero As String

archivo = ThisWorkbook.Name
numero = Mid(archivo, InStr(1, ThisWorkbook.Name, "_") + 1, 8)
Range("A1") = DateSerial(Left(numero, 4), Mid(numero, 5, 2), Right(numero,
2))
End Sub

Funciona bien, pero me da una fecha incorrecta, el toma los valores
correctos pero al pasar la fecha me genera otra mucho mas adelante de la
que realmente es. Que funcion puedo colocar para cambiar el DAteSErial y
me de la fecha correcta. Esta va incluida en una macro.

Gracias.