[impersonalis]

Function GetFileExtension$(FileName$,Divider$=".")
 lf1=1
 lf2=1
 While True
  lf2=Instr(FileName$,Divider$,lf1)
  If lf2=0 Exit
  lf1=lf2+1
 Wend
 Extension$=Right$(FileName$,Len(FileName$)-lf1+1)
 If Len(Extension$)=Len(FileName$)
  Return False
 Else
  Return Extension$
 EndIf
End Function