Recuperare formato (estensione) di un file

[yyzyyz]

X luciano79 : Non ci avevo pensato, cmq ke ne dici se faccio cosi:

Function fileext(nomefile As String) As String
Dim ext As String
Dim len_rev As String

len_rev = StrReverse(nomefile)
ext = Mid(len_rev, 1, (InStr(1, len_rev, ".") - 1))
ext = StrReverse(ext)
MsgBox ext
End Function

ps. so gia' ke le altre routine sono sicuramente meglio.
pss. differenza tra InStr e InStrRev ?