Je voudrais remplacer une chaine de caractère par une autre dans une string

existe t-il une fonction en VBA toute prete comme la fonction "remplacer" dans EXCEL ?

voici mon code qui marche mais qui est un peu tortueux à mon gout
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub remp()
chaine1 = [A1] ' chaine dans laquelle on cherche
cherch = [A2] ' chaine recherchée
rempla = [A3] ' chaine de remplacement
 
Position = 1
 
Do
Position = InStr(Position, chaine1, cherch)
    'cherch trouvé
    If Position <> 0 Then
    'integre la chaine
    chaine1 = Left(chaine1, Position - 1) & rempla & Right(chaine1, Len(chaine1) - Position - Len(cherch) + 1)
    Position = Position + Len(rempla)
    End If
'sortie si fin de chaine ou pas trouvé
Loop Until Position > Len(chaine1) Or Position = 0
'resultat en A5
[A5] = chaine1
End Sub
merci d'avance pour vos commentaires...