Hvordan ændre man i en tekst string fra en textBox ?

Jeg har lavet en funktion som jeg kalder med en string. Denne string vil jeg søge igennem for at finde \'ér og udskifte dem med et andet tegn. Hvad gør jeg galt ?
Hvordan skal jeg overskrive en enkelt karakter i en hel string ?

Private Sub checkTextFelt(ByRef tekst As String)
Dim i As Integer
Dim s As String

For i = 1 To Format$(Len(tekst))
    If Mid$(tekst, i, 1) = \"\'\" Then
        Replace Mid$(tekst, i, 1), \"\'\", \"*\"
    End If
Next

s = tekst

End Sub


Håber at der er nogen der kan gennemskue mit problem. På forhånd tak.