Remplacer certains caractères d'une chaîne?

[IFFIC]

Bonsoir à tous du Forum.
Merci les Dieux de m'avoir fait vous rencontrer.
Merci à vous pour votre gentillesse que j'y ai trouvé.

Voici donc là où je coince!!!

Après un:

Private Sub CommandButton4_Click()
Dim CHEMIN As String
Dim BOITE As FileDialog
Set BOITE = Application.FileDialog(msoFileDialogFilePicker)
BOITE.AllowMultiSelect = False
BOITE.Show
For lngCount = 1 To BOITE.SelectedItems.Count
TextBox1.Value = BOITE.SelectedItems(lngCount)
Next lngCount
CHEMIN = TextBox1.Value
Worksheets('ADHERENTS').Cells(1, 1) = CHEMIN
End Sub

Dans A1 de ma feuille ADHERENTS, j'ai:

C:\\Documents and Settings\\MAPOMME\\Bureau\\ASSY\\ASSO.xls

Sauf que par la suite pour faire un: 'ExecuteExcel4Macro…….'
Dans l'une des feuilles du classeur 'ASSO' j'ai besoin de traduire le chemin comme suit.


C:\\Documents and Settings\\MAPOMME\\Bureau\\ASSY\\[ASSO]

En aval, tout fonctionne (avec la Feuille en variable).
Mais en amont, je ne sais pas mettre en bonne forme la syntaxe
Indispensable ci-dessus dans la cellule de référence.

Grand merci à qui pourrait m'aider.

Et bonne soirée à tous.

IFFIC