Utilidad de búsqueda

Hola a todos
He tenido la suerte de que un amigo me ha pasado un código para hacer
busquedas selectivas dentro del ordenador. No conozco la fuente, pero le doy
las gracias a quien haya hecho esta gran utilidad.
Me gustaría añadir tres cosas, pero no se como hacerlo:
1) Que escribiera en otra columna el "peso" del archivo
2) Que escribiera en otra columna la fecha de la última modificación
3) Si se puede pedir la ruta (LookIn)con un imputbox para no tener que
modificar a mano el codigo VBA
Gracias anticipadas

'procedimiento VerBúsquedaDeArchivosEnHoja
'El siguiente procedimiento utiliza la propiedad FileSearch del objeto
Application para efectuar una búsqueda de los ficheros con extensión .XLS, y
presenta los ficheros (si los hay) en Hoja1:


Sub VerBúsquedaDeArchivosEnHoja()
Dim fsB As FileSearch
Dim n As Long

Set fsB = Application.FileSearch

With fsB

.NewSearch
.LookIn = "c:\Mis documentos" 'Directorio donde comenzará la
búsqueda, (se puede cambiar por otros p.e. -> c:/;d:/, etc)
.SearchSubFolders = True 'Si se buscará en los subdirectorios
.Filename = "*.xls" 'Patrón a buscar (p.e. otros:
*.xls;*.doc;*.txt;*.jpg; etc...


If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then

ActiveSheet.Range("b1") = "Ubicación"
For n = 2 To fsB.FoundFiles.Count

Worksheets("Plantilla").Cells(n, 2) = .FoundFiles(n) 'hoja
donde va a escribir
Next n

End If

End With

Set fsB = Nothing
End Sub

'Si la búsqueda se hace también en los subdirectorios (.SearchSubFolders True) los ficheros pueden no presentarse correctamente ordenados por su
nombre.