ext$ = BCXSPLITPATH$(filename$, FEXT)IF INSTR(ext$, ".") THEN REMOVE "." FROM ext$
BCXSPLITPATH$(filename$, FEXT [, bRemove])
Why not this?DIM Filename$, ext$Filename$ = "C:\Temp\MyDocument.Dot.Mac"ext$ = MID$(BCXSPLITPATH$(Filename$, FEXT), 2)PRINT ext$PAUSE