Visual Basic Programming Code Examples Visual Basic > Strings Code Examples 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
