Private Sub ReplaceString(ByRef Expression As String, sLeft As String, sRight As String, sRep As String)
    Dim lPosL As Long, lPosR As Long
    lPosL = InStr(1, Expression, sLeft): lPosR = InStr(lPosL + 1, Expression,  sRight)
    If lPosL > 0 And lPosR > 0 Then Expression = Left$(Expression, lPosL + Len(sLeft) - 1)  & sRep & Mid$(Expression, lPosR)
End Sub
'EXEMPLE  D'UTILISATION
Private Sub Form_Load()
    Dim sStr As String
    sStr = "<div  align='center'>machin</div>"
    Call ReplaceString(sStr, "'>", "</", "budule")
    MsgBox sStr
    Unload Me
End Sub

sTexte est une chaîne = "remplacer le texte entre deux chaines qui servent de marqueurs"
sMarqueDébut est une chaîne = "texte"
sMarqueFin est une chaîne = "qui"
sNouveauTexte est une chaîne = "A LA PLACE"
Info(Remplace(sTexte, ExtraitChaîne(ExtraitChaîne(sTexte,2,sMarqueDébut),1,sMarqueFin), sNouveauTexte))

function ReplaceMidStr(const S, SLeft, SRight, NewStr: string): string;
var
  PosLeft, PosRight, PosMid: Integer;
  STmp: string;
begin
  Result := S;
  PosLeft := Pos(SLeft, S);
  if PosLeft = 0 then Exit;
  PosMid := PosLeft + Length(SLeft);
  STmp := Copy(S, PosMid, Length(S));
  PosRight := Pos(SRight, STmp);
  if PosRight = 0 then Exit;
  Delete(STmp, 1, PosRight - 1);
  Result := Copy(S, 1, PosMid - 1) + NewStr + STmp;
end;

{Alternative à la fonction de Japee ... jusqu'à deux fois plus rapide} 
Uses StrUtils; {Indispensable pour PosEx} 
Function ReplaceMidStr(Const  S, SLeft, SRight, NewStr: String):  String; 
Var  
  PosLeft, PosRight: Integer; 
Begin  
  PosLeft := Pos(SLeft, S); 
  If  PosLeft < 1 Then  Exit; 
  Inc(PosLeft, Length(SLeft)); 
  PosRight :=  PosEx(SRight, S, PosLeft); 
  If PosRight  < 1 Then Exit;  
  Result := Copy(S, 1, PosLeft-1) + NewStr + Copy(S, PosRight, High(Integer)); 
End; 
 
 

    Private Sub ReplaceString(ByRef Expression As String, ByVal sLeft As String, ByVal sRight As String, ByVal sReplace As String, Optional ByVal iStart As Integer = 0)
        Dim iPosL As Integer = Expression.IndexOf(sLeft, iStart)
        If iPosL > -1 Then
            Dim iPosR As Integer = Expression.IndexOf(sRight, iPosL + sLeft.Length)
            If iPosR > -1 Then
                Expression = String.Format("{0}{1}{2}", Expression.Substring(0, iPosL + sLeft.Length), sReplace, Expression.Substring(iPosR, Expression.Length - iPosR))
            End If
        End If
    End Sub

'Dim sStr As String = "<div align='center'>machin</div>"
'ReplaceString(sStr, "'>", "<", "budule")
'MessageBox.Show(sStr)

private void ReplaceString(ref string Expression, string sLeft, string sRight, string sReplace,  int iStart)
{
  int iPosL = Expression.IndexOf(sLeft, iStart);
  if (iPosL > -1)
  {
    int iPosR = Expression.IndexOf(sRight, iPosL + sLeft.Length);
    if (iPosR > -1)
    {
      Expression = string.Format("{0}{1}{2}", Expression.Substring(0, iPosL + sLeft.Length), sReplace, Expression.Substring(iPosR, Expression.Length - iPosR));
    }
  }
}