codice:
 
Public Function Sostituisci(ByVal MyText As String, ByVal Trova as Sting, ByVal CambiaIn As String)

    Dim i As Long
    Dim a As String

    If Trova = "" OR CambiaIn = "" OR Trova = CambiaIn Then
       Sostituisci = MyText 
    Else
        a = MyText 
        i = InStr(i, a, Trova)
        While i <> 0
            a = Left$(a, i - 1) & CambiaIn & Mid$(a, i + 1)
            i = i -1 + Len(CambiaIn)
            i = InStr(i, a, Trova)
        Wend
        Sostituisci= a
    End If
End Function