Create ExtractFileName.bas