REMOVE string in string array

[sal21]

i just have VALORE ="8-56-7-1254-88-6"
and INDICE=7
How to remove INDICE from VALORE, end maintain the format:
"8-56-1254-88-6"

Note:
INDICE have a variable lenght

googoling...
Private Sub FORMAT_STRINGM()

VALORE = SSTAB_GYM.LNRPMOD.Caption

Select Case True

Case VALORE Like INDICE & "-#*"
VALORE = Replace$(VALORE, INDICE & "-", vbNullString, , 1)
Case VALORE Like "*#-" & INDICE
VALORE = Left$(VALORE, InStrRev(INDICE, "-") - 1)
Case VALORE Like "*-" & INDICE & "-*"
VALORE = Replace$(VALORE, "-" & INDICE & "-", "-")

End Select
'PATM = VALORE

End Sub

[HansV]

A shorter version:

Code: Select all

Private Sub FORMAT_STRINGM2()
    VALORE = SSTAB_GYM.LNRPMOD.Caption
    VALORE = Join(Filter(Split(VALORE, "-"), INDICE, False), "-")
End Sub

[sal21]

A shorter version:

Code: Select all

Private Sub FORMAT_STRINGM2()
    VALORE = SSTAB_GYM.LNRPMOD.Caption
    VALORE = Join(Filter(Split(VALORE, "-"), INDICE, False), "-")
End Sub

[snb]

What about 'replace' ?