Есть ли в Access 97 функция поиска и замены подстроки в строке ?

Public Function Replace(strString As String, strFind As String, strReplace As String) As String
' заменяет в строке strString все вхождения строки strFind на строку strReplace
  Dim strFirst As String, strLast As String, strOut As String, intPos As Integer
 
  strOut = strString
  If strFind = strReplace Then GoTo lblExit
 
  intPos = InStr(strOut, strFind)
  Do Until intPos = 0
    strFirst = Left$(strOut, intPos - 1)
    strLast = Right$(strOut, Len(strOut) - intPos + 1 - Len(strFind))
    strOut = strFirst & strReplace & strLast
    intPos = InStr(intPos + Len(strReplace), strOut, strFind)
  Loop
 
lblExit:
  Replace = strOut
End Function

Public Function Replace(strString As String, strFind As String, strReplace As String) As String
' заменяет в строке strString все вхождения строки strFind на строку strReplace
Dim strOut As String, intPos As Integer
 
strOut = strString
 
intPos = InStr(strOut, strFind)
 
If intPos > 0 Then
    Replace = Mid(strOut, 1, intPos - 1) & _
        strReplace & _
        Mid(strOut, Len(strFind) + Len(Mid(strOut, 1, intPos)))
Else
    Replace = strOut
End If
 
End Function

Function RemoveTags(strng As Variant)
    If Len(strng) > MIN_WORD_LENGTH Then
        Dim regEx
        Set regEx = CreateObject("VBScript.RegExp") 'New RegExp
        With regEx
            .IgnoreCase = True
            .Global = True
            ' replace tags
            .Pattern = "(<[^>]*>)|(&[^;]*;)"
            strng = .Replace(strng, '')
            ' merge spaces
            .Pattern = "s{2,}"
            RemoveTags = .Replace(strng, " ")
        End With
        Set regEx = Nothing
    Else
        RemoveTags = ""
    End If
End Function

Public Function Заменить(Строка As String, ЧеИщем As String, НаЧтоМеняем As String) As String
    '' заменяет в строке Строка все вхождения строки ЧеИщем на НаЧтоМеняем
 
    МестоДеНашли As Integer
 
    МестоДеНашли = InStr(Строка, ЧеИщем)
 
    If МестоДеНашли > 0 Then
 
        Заменить = Mid(Строка, 1, МестоДеНашли - 1) & _
        НаЧтоМеняем & _
        Mid(Строка, Len(ЧеИщем) + Len(Mid(Строка, 1, МестоДеНашли)))
        Заменить = Заменить(Заменить, ЧеИщем, НаЧтоМеняем)
 
    Else
 
        Заменить = Строка
 
    End If
 
End Function