Replace Multipli

[Mr.UltraDev]

Ciao a tutti

ragazzi mi servirebbe un piccolo aiuto.
allora io ho bisogno di fare più replace x poter eleminare alcuni caratteri speciali. Stavo eseguendo più replace multipli quando poi ad un certo punto alla riga dell'Upload di Baoul precisamente la riga 290 che è:

Public Function GetCompletePathFile()
    Dim sGetCompletePathFile=""
                if Not Files.EOF then
                  s = Files("DestPath") & Files("Name")
                   if Files("Ext")<>"" then s = s & "." & Files("Ext")
GetCompletePathFile = Replace(Replace(Replace(Replace(s," ","_"),"'","_"),"%","_"),"&","_") 
            end if
        end function 

se vado ad aggiungere un ulteriore "Replace(" oltre a quelli esistenti ovvero il "quinto", l'immagine non viene più uploudata, quindi ritengo che qualcosa salti durante il processo

come posso ovviare a ciò? ovvero come posso aggiungere altri caratteri speciali che dovranno essere sostituiti con "_"

grazie