Changing File Name Of Uploaded Photo

I've got the following code to upload photos and save in a folder:

<%
Dim objUpload
Dim strFileName
Dim strPath

' Instantiate Upload Class
Set objUpload = New clsUpload

' Grab the file name
strFileName = objUpload.Fields("File1").FileName

' Compile path to save file to
strPath = Server.MapPath("Uploads") & "" & strFileName

' Save the binary data to the file system
objUpload("File1").SaveAs strPath

' Release upload object from memory
Set objUpload = Nothing
%>

The problem is it saves with the original file name but I want manipulate it and save it with a name defined by me as if not a user that download a photo with an existing name in the folder it will re-write.