Renomear Ficheiro Antes de Enviar

Ola meus amigos estou com um problema aqui que esta me deixando doido, tenho o form de cadastro com foto porem como estou usando servidor online mysql esta foto e subida pro espaço no servidor na pasta public para quando carrega o registro ele baixa a foto e mostra no campo porem eu tenho duas formas de envio uma e via webcam dentro do access mes ele tira a foto e envia para o servidor ja renomeado, a outra e via o codigo para setar a foto, porem queria que antes de enviar ele renomea-se a foto. este e o codigo que ultilizo.

'VarNomeFoto = "Id " & Me!id_candidato & ".jpg"

' Set up the File Dialog.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog

.AllowMultiSelect = True
.Title = "A pasta com a sua logomarca"
.Filters.Clear
.Filters.Add "Arquivo JPG", "*.jpg"
.Filters.Add "Arquivo BMP", "*.bmp"
.Filters.Add "Arquivo JPGE", "*.jpge"
.Filters.Add "Arquivo GIF", "*.gif"


If .Show = True Then

'Loop through each file selected and add it to our list box.


For Each strarquivo In .SelectedItems strarquivo e o arquivo que carrega para ser enviado aqui que eu queria que ele renomea-se a foto para "Id-" & Me.id_candidato & "


Me.Foto1 = Dir(strarquivo, vbArchive)


Call Upload_FTP_Candidatos(strarquivo)
Next
Else

End If
End With


DoCmd.Hourglass True
Me.Refresh
DoEvents
Call Load_Imagem_Candidato
DoEvents
DoCmd.Hourglass False

se alguem puder me ajuda agradeço aos amigos.

o meu é local, uma forma que tenho para renomear-las 

Código:

Dim Nome_da_foto
Dim nome_da_Pasta, destino_da_pasta

strArquivo = Me.id & "--" & Me.Nome_daFoto& ".jpg"

nome_da_Pasta= Me.Foto1 
destino_da_pasta= CurrentProject.Path & "\Fotos\" & strArquivo 

Ve  te da uma luz 
por enquanto não mexo com a web.