Tendria que probar pero de repente se me ocurre:
Código:
Function SubirFoto()
Server.ScriptTimeout = 1800
Set upload = Server.CreateObject("Persits.Upload")
upload.OverwriteFiles = False
'upload.Savevirtual(ubicacion)
SubirFoto = upload
End Function
Set subir = SubirFoto()
subir.Savevirtual(ubicacion)
Set subir = Nothing
Aunque no estoy seguro que funcione de esta manera.
Saludos