'CurDir() Returns a string representing the current drive path.

    Sub strDemo20()

       Debug.Print CurDir()

    End Sub

    'To return the current path, use CurDir without an argument:

    Sub curDirDemo()

        MsgBox CurDir

    End Sub

    'To return the current path for a specified drive

    Sub curDirDemo1()

        CurDir ("C:\")

    End Sub