Private bsTabelle As New SortedDictionary(Of Char, String)
	' Ersetzter Code - Dim bsTabelle As New SortedDictionary(Of Char, Char)

bsTabelle.Add("M"c, "|V|")

	For Each c As Char In charArray
		If bsTabelle.ContainsKey(c) Then
			outputText.Append(bsTabelle(c))
		Else
			outputText.Append(c)
			End If
		' Ersetzter Code:
		' If bsTabelle.ContainsKey(c) Then c = bsTabelle(c)
		' outputText.Append(c)
		Next

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