Visual Basic > Strings

Simple Replace function

Simple Replace function

Public Function Replace(ByVal WorkingString As String, _
 ByVal OldText As String, Optional _
 ByVal NewText As String = "") As String

    'Dimension any variables.
    Dim I As Long
    'Loop through string doing any replacements.
    For I = Len(WorkingString) To 1 Step -1
        If Mid$(WorkingString, I, Len(OldText)) = OldText Then
            WorkingString = Left$(WorkingString, I - 1) _
             & NewText & Right$(WorkingString, _
             Len(WorkingString) - (I - 1 + Len(OldText)))
            I = I - Len(NewText) + 1
        End If
        DoEvents
    Next
    Replace = WorkingString

End Function