' Im Deklarationsteil
 
Dim sGrapheme(iAnzGraphemGruppen, 25) As String
 
' In der Sub:
 
For gg As Integer = 0 To iAnzGraphemGruppen - 1
    Select Case gg
           Case cVOKALE
                sGrapheme(gg, ) = New String() {"a", "e", "i", "O" "u"}
           Case cUMLAUTE 
                sGrapheme(gg, ) = New String() {"ä", "ö", "ü" }
           ' ..........
           Case Else
    End Select
Next g