Hi,

I used the Excel formula 'Proper', that is not part of VBA. Check Excel for the meaning of [ ] .
In VBA you can use strconv() instead.
I tried them all really, but do not show the expected result.

Method strconv It is not sufficient
Check Excel for the meaning of [ ]
Ok, evaluates a formula, I had tried to enter a cycle unnecessarily.

It follows the cycle vb6 I have implemented

Code:
                For Each celle In dataArray
                    If InStr(celle, Trim(Form1.List1.List(I))) Then
                        FFF = Split(celle, Trim(Form1.List1.List(I)))
                        GGG = Split(FFF(1), "(")
                        HCodes = Replace(Left(GGG(0), Len(GGG(0)) - 1), "-", "")
                        tx = "  " & StrConv(Trim(HCodes), vbLowerCase)
                        tx = "  " & LwrToUpprCase(tx)
                        If InStr(tx, " ") Then
                         For Each K In Testo
                           tx = Replace(tx & s, s & K & s, s & LCase(K) & s)
                         Next
                        End If
                        List8.List(I) = tx
                        arr5(I) = tx
                        Exit For
                    End If
                Next