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

Antwort per Email an