Dim zeichen() As String = New String() _
{"a", "i", "j", "q", "y", "b", "k", "r", "c", "g", "l", "s", "d", "m", "t", _
"e", "h", "n", "u", "v", "w", "x", "o", "z", "f", "p"}
Dim werte() As Integer = New Integer() _
{1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 6, 7, 7, 8, 8, 9, _
9}

---------------------------------------
Ich darf das fragen, ich lerne noch ;)
---------------------------------------