éliminer une chaine de carac en VBA

[jhonny]

bonjour,

j ai un petit souci j espere que vous pourriez m aider:
je m explique :
j ai besoin d'éliminer une chaine de caractaire à l interieure du chaine principale ex
chaine principale :
RSS-12345678---COD987QUOTE
APRES elimintation le resultat sera :
RSS-12345678---CODQUOTE
pourriez vous m aider??!!
merci
jhonny
A+

 

[jhonny]

rebonjour
est ce que c est impossible??

merci

A+

 

[Hervé]

bonjour

a essayer :

Dim t As String
Dim tablo
Dim i As Byte

t = 'RSS-12345678---COD987QUOTE'

tablo = Split(t, '---')
t = ''

For i = 1 To Len(tablo(1))
        If Not IsNumeric(Mid(tablo(1), i, 1)) Then
                t = t & Mid(tablo(1), i, 1)
        End If
Next i

t = tablo(0) & '---' & t

MsgBox t

salut