vba get current directory code example

Example: excel vba current folder

' Current folder
MsgBox ActiveWorkbook.Path      ' needs to be saved before
MsgBox CurDir					' default