puoi fare uno split di / e poi recuperare nell'array l'ultimo valore, cioè il nome..

codice:
Dim Indirizzo1() as String
Indirizzo1 = Split(Input1.Value, "\")
Inpuut1.PostedFile.SaveAs(Server.MapPath("mia_cartella/" & Indirizzo1(Ubound(Indirizzo1))))