Dim charArray As Char() = TextBox1.Text.ToCharArray()

	' Neue Vergleichstabelle anlegen
	Dim bsTabelle As New SortedDictionary(Of Char, Char)
 
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
		' Vergleichstabelle füllen
		bsTabelle.Add("A"c, "4"c)
		bsTabelle.Add("B"c, "8"c)
		bsTabelle.Add("C"c, "("c)
		' usw... (evtl. Gross- und Kleinschreibung berücksichtigen!)
	End Sub

-----
"There's never enough time to do all the nothing you want."
(Calvin and Hobbes)