Replace one character with another wherever it appears in a string

Article contributed by Bill Coan

' the following code calls the "ReplaceACharacter" function

Sub TestTheFunction()

Dim myString As String
Dim OldCharacter As String
Dim NewCharacter As String

myString = "Hello, I love you. Let me jump in your game."
OldCharacter = "e"
NewCharacter = "u"

myString = ReplaceACharacter(InWhat:=myString, FindWhat:=OldCharacter, _
ReplaceWith:=NewCharacter)

MsgBox myString

End Sub


'here's the function itself

Function ReplaceACharacter(InWhat As String, FindWhat As String, ReplaceWith As String) As String

Dim StartAtCharacter As Long

StartAtCharacter = 1

StartAtCharacter = InStr(StartAtCharacter, InWhat, FindWhat)

Do While StartAtCharacter <> 0
    InWhat = Left$(InWhat, StartAtCharacter - 1) _
            & ReplaceWith _
            & Mid$(InWhat, StartAtCharacter + 1)
    StartAtCharacter = InStr(StartAtCharacter, InWhat, FindWhat)
Loop

ReplaceACharacter = InWhat

End Function


Click to view Terms of Use page

Click to view Disclaimer page