• Home
 · 
• String Manipulation
 · 
• Easily Replace a character in a string

Easily Replace a character in a string

Replaces a character in a string with another character. Pretty simple to understand. Uses a For...Next loop.

Rate Easily Replace a character in a string

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Function ReplaceCharacter(stringToChange$, charToReplace$, replaceWith$) As String
'Replaces a specified character in a string with another
'character that you specify
  Dim ln, n As Long
  Dim NextLetter As String
  Dim FinalString As String
  Dim txt, char, rep As String
  txt = stringToChange$ 'store all arguments in
  char = charToReplace$ 'new variables
  rep = replaceWith$
     
  ln = Len(txt)
  
  For n = 1 To ln Step 1
    NextLetter = Mid(txt, n, 1)
    
    If NextLetter = char Then
      NextLetter = rep
    End If
    
    FinalString = FinalString & NextLetter
  Next n
  
  Replace_Character = FinalString
  
End Function