Visual Basic - Urgente

Hola kisiera conseguir ke me devolviera la ruta completa de donde se encuentra el fichero FUENTE.XLS. Lo he mirado en la ayuda y lo he hecho tal y como lo pone pero me dice ke no encuentra el fichero, y el fichero existe.
Podrian ayudarme?

fichero = ".\FUENTE.XLS"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(fichero)
s = f.Path
MsgBox s

fichero = app.path & "\fuente.xls"

Gracias pero con app.path solo me devuelve la ruta de la aplicacion y el fichero no esta ubicado ahi.