Create ExtractDirectoryName.bas