Controllo dell'estensione di un file

[Nemesis19]

salve a tutti espongo il mio quesito.

ho una variabile alla quale è associato il nome di un file
es.

Dim file
file = Pippo.htm

io vorrei creare una condizione secondo la quale se l'estensione del file è diversa da .htm fa una procedura.

Però non so...come posso dire...come fare isolare l'estensione per fargli fare il controllo.

spero di essere stato chiaro
grazie mille

[kalosjo]

pos = instrrev(nomefile,".")

if ucase(right(nomefile,len(nomefile-pos)))="HTM" then

else

end if