Dim chars() As String = {"aijqy", "bkr", "cgls", "dmt", "ehn", "uvwx", _
          "oz", "fp"}
        Dim werte() As Short = {1, 2, 3, 4, 5, 6, 7, 8}
        Dim data As String = "agwp"
        Dim wdata(data.Length - 1) As Integer
        For j As Integer = 0 To UBound(wdata)
            For i = 0 To UBound(chars)
                If chars(i).Contains(data(j)) Then
                    Dim wert As Integer = werte(i)
                    wdata(j) = wert
                    Exit For
                End If
            Next
        Next
 
        For Each wert As Integer In wdata
            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