Return the directory/folder of the active file

Hi Folks!

Not much of a programmer and need some help.

I want to put a button on my toolbar that when clicked will return the directory/folder name of the active file into cell A1.

I know I can do this with a formula but I don't want to go that route. I would like some VBA code to do this.

Any help is greatly appreciated!