retoque de macro

Hola de nuevo. Gracias a Héctor Miguel(thx), he
conseguido que la siguiente macro me funcione, pero

resulta que el resultado final que me da y que es:
BM20040213D.txt
No me sirve para el objetivo que busco y que es que la
hoja me localice de la red ese archivo de texto. Supongo
que el problema es debido a que está relacionado con una
fecha,pues si pulso en la celda sobre "BM20040213D.txt"
me apararece la fecha 13/02/04. ¿alguna solucion?

Sub Fecha_Formato()
Dim Fecha As String, Día As Integer, Mes As Integer,
Año As Integer
Fecha = InputBox("Fecha a actualizar")
Día = Right(Fecha, 2)
Mes = Mid(Fecha, 3, 2)
Año = Left(Fecha, 2)
With Range("B3")
.Value = DateSerial(Día, Mes, Año)
.NumberFormat = "dd/mm/yyyy"
End With
End Sub
.