Am 09.02.2012 um 17:37 schrieb Oliver Osswald: > Function AsciiSort(Extends s As String) As String > If s <> "" Then > s = s.Lowercase > s = ReplaceAll(s, "ä", "a") > s = ReplaceAll(s, "å", "a") . . . Probier mal stattdessen:
s=ConvertEncoding(s,Encodings.ASCII) Maximilian Tyrtania http://www.contactking.de
