Und es geht doch!:
dim Arr() as String dim OrString as String dim tmpText as String OrString = "Zebel,Cebel,Übel,Öbel,Bebel,Abel,Abul,Abül" tmpText =ConvertEncoding(OrString, Encodings.WindowsANSI) Arr = Split(tmpText,",") arr.Sort tmpText = Join(Arr,",") 'tmpText = ConvertEncoding(tmpText, Encodings.UTF8) tmpText = tmpText 'beide Zeilen funktionieren!! MsgBox "Orstring: " + OrString + EndofLine + "tmpText: " + tmpText
