Dim chars() As Char = {"a"c, "b"c, "c"c, "d"c, "ä"c, "ö"c, "ü"c, "ß"c}
 
        Dim werte() As Short = {1, 1, 2, 2, 3, 3, 4, 4}
 
        Dim data As String = "adöß"
 
        For Each c As Char In data
            Dim wert As Integer = werte(Array.IndexOf(chars, Char.ToLower(c)))
            Debug.WriteLine(wert.ToString())
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist