Verifica presenza del punto nel nome del file

[binaryfinary]

Salve ragazzi;
devo fare dei controlli sul nome del file che immetto nel mio db;
per prima cosa deve essere .asp e ho fatto quanto segue:

Stringa = "nomefile.est"
Lung = Instr(StrReverse(Stringa),".")
Est = Right(Stringa,Lung)

quindi ho fatto tutti i controlli del caso per l' estensione.

Ora devo verificare che nel mio campo input text non venga messo soltanto il nome del file ma che ci sia anche il punto con la relativa estensione asp;

come posso fare?

[asdfgasdfg]

if instr(request("campo"),".asp")< 1 then
response.redirect "pagina.asp?par=inserisci anche estenzione"
end if

[binaryfinary]

grazie