Ciao Ti posto il codice di una routine prova a vedere se ti funziona

codice:
Public Function Sostituisci_Carattere(Parola As String, Old_Car As String, New_Car As String) As String
' Parola e la stringa dove vuoi effettuare la sostituzione
' Old_Car è il carattere che vuoi sostituire
' New_Car è il nuovo carattere 
Dim I As Long
Dim Car As String
Sostituisci_Carattere = ""
For I = 1 To Len(Parola)
    Car = Mid(Parola, I, 1)
    If Car = Old_Car Then
        Sostituisci_Carattere = Sostituisci_Carattere & New_Car
    Else
        Sostituisci_Carattere = Sostituisci_Carattere & Car
    End If
Next

End Function
Ciao
Fammi sapere