Trova e Sostituisci

Questa funzione, realizza il "Trova e Sostituisci".

'*********************************************
'stringa = stringa su cui eeseguire Trova e
' Sostituisci
'search = parola da trovare nella stringa
'replace = parola che sostituisce search
'*********************************************
Public Function Sostituisci(stringa As String, search As String, replace As String) As String
Dim punto As Long
punto = 1
Do
    punto = InStr(punto, UCase(stringa), UCase(search))
    If punto = 0 Then Exit Do
    stringa = Left(stringa, punto - 1) & replace & Right(stringa, Len(stringa) - punto - Len(search) + 1)
Loop Until InStr(stringa, search) = 0
Sostituisci = stringa
End Function

Testato su: Tutti i Sistemi operativi