List files in directory of the active workbook

Hello,
I am using this code to get the list of files in the active workbook directory:

MsgBox Dir(Chr(34) & Application.ActiveWorkbook.Path & Chr(34) & "\")

I am getting Run-Time error 52 " Bad File name or number".

What is wrong here?
Thanks