excel vba get current folder path code example

Example: excel vba current folder

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