Function sReplace(sText As String, sSearch As String, sFirstString As String, sLastString As String) As String
    Dim sString As String, sMidString As String
    Dim sSemaphore As Boolean
    Dim i As Integer

    sSemaphore = False

    For i = 1 To Len(sText)
    sMidString = Mid(sText, i, Len(sSearch))
        If sMidString = sSearch Then
            If sSemaphore = False Then
                sString = sFirstString & sMidString
                sSemaphore = True
            Else
                sString = sString & sMidString & sLastString
                sReplace = sReplace & sString
                sSemaphore = False
            End If
        Else
            If sSemaphore = True Then
                sString = sString & sMidString
            Else
                sReplace = sReplace & sMidString
            End If
        End If
    Next i
End Function