considerando che l'estensione sono tutti i caratteri successivi all'ultimo punto

codice:
Extension = UCase$(Mid$(percorsofile, InStrRev(percorsofile, ".") + 1))
con un *.torrent non ci facevate una bella figura