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