' Neue Vergleichstabelle anlegen
	Dim bsTabelle As New SortedDictionary(Of Char, Char)
 
	' Das Load-Ereignis der Form wird beim Start des Programms aufgerufen
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
		' Vergleichstabelle füllen. Das erste Zeichen steht für den echten Buchstaben 
' (A), das Zweite (4) für die Ersetzung:
		bsTabelle.Add("A"c, "4"c)
		bsTabelle.Add("B"c, "8"c)
		bsTabelle.Add("C"c, "("c)
		' usw. - Hier darfst du weiter machen...
	End Sub
 
	' Dieses Ereignis wird beim Klick auf den Button1 ausgelöst:
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
		' Text aus TextBox1 in einen Char-Array ablegen
		Dim charArray As Char() = TextBox1.Text.ToCharArray
		' StringBuilder erstellen, um Char-Array wieder in einen String zu verwandeln
		Dim outputText As New System.Text.StringBuilder
		' Zeichen ersetzen
		For Each c As Char In charArray
			' Prüft zuerst ob das Zeichen in der Vergleichstabelle enthalten ist und 
' ersetzt es dann
			If bsTabelle.ContainsKey(c) Then c = bsTabelle(c)
			outputText.Append(c)
		Next
		' Ausgabe des Leet-Textes in Textbox2
		TextBox2.Text = outputText.ToString
	End Sub

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