Function GetFileExtension$(file$, div$ = ".") Return Mid(file, Instr(file, div) + 1, Len(file) - Instr(file, div)) End Function Print GetFileExtension("A:\Directory\file.exe")