Add Custom List Using VBA

[YasserKhalil]

Hello everybody
I have the following code which I used to create a custom list using vba

    Dim TempArray As Variant
    TempArray = Range("J1:J5")
    Application.AddCustomList ListArray:=TempArray
    Range("A1").CurrentRegion.Sort key1:=Range("A1"), OrderCustom:=Application.CustomListCount + 1
    Application.DeleteCustomList Application.CustomListCount

The code works very well with English letters but with Ararbic letters it doesn't work well.
Is there a problem with Arabic Custom Lists?