upload recupero il nome del file cosi

Dim sFile as string = foto1.PostedFile.FileName
Dim sSplit() as string = Split(sFile, "\")
sFile = sSplit(Ubound(sSplit))

come posso recuperare e memorizzare in una variabile l'estensione del file appena caricato comprensiva di . ????
ciao e grazie a tutti