prima del save potresti fare una cosa del genere
codice:
If .Files("InputName") = "CAMPO1" Then
.Files("DestPath") = .Files("DestPath") & "dir1/" 
.Save
ElseIf .Files("InputName") = "CAMPO2" Then
.Files("DestPath") = .Files("DestPath") & "dir2/" 
.Save
ElseIf .Files("InputName") = "CAMPO3" Then
.Files("DestPath") = .Files("DestPath") & "dir3/" 
.Save
ElseIf .Files("InputName") = "CAMPO4" Then
.Files("DestPath") = .Files("DestPath") & "dir4/" 
.Save
End If
Se non sbalio ad ogni ciclo DestPath viene risettato a SetPath, quindi puoi cambiarlo senza ricordarti il percorso precedente, comunque prova!