Replace Carrage control in text in VB5

[DataMiser]

Actually I had a quick peek and you are in luck. Turns out I still have a replace function I wrote about 12 years ago in VB5

Public Function ReplaceMe(Source As String, Target As String, Replacement As String) As String

    Dim Startpos As Integer
    Dim Ltemp As String
    Dim Rtemp As String
    
    Startpos = InStr(Source, Target)
         
    Do While Startpos > 0
        Ltemp = Left$(Source, Startpos - 1)
        If Len(Source) - (Startpos + Len(Target)) > 0 Then
            Rtemp = Right$(Source, Len(Source) - (Startpos + Len(Target)))
        Else
            Rtemp = ""
        End If
        Source = Ltemp + Replacement + Rtemp
        Startpos = InStr(Source, Target)
   Loop
   ReplaceMe = Source
End Function