Function Reduce(Txt As String, Delim As String, Optional KeepOuter As Boolean) As String Dim vNum As Variant For Each vNum In Array(9841, 121, 13, 5, 3, 3, 2) Txt = Replace(Txt, String(vNum, Delim), Delim) Next If Not KeepOuter Then If Right(Txt, 1) = Delim Then Txt = Left(Txt, Len(Txt) - 1) If Left(Txt, 1) = Delim Then Txt = Mid(Txt, 2) End If Reduce = Txt End Function