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