Function CreateCode(ByVal sCode As String) As String
		' Variablendeklaration
		Dim arr As List(Of String) = CreateList()
		Dim strGesamt As String = 0
		Dim strChar As String = 0
		Dim strReturn As String = ""
 
		' Durchlaufe jedes einzelne Zeichen
		For i As Integer = 0 To Len(sCode) - 1
			' Bestimme Ascii-Code des gewählten Zeichens, addiere Quersumme des bisher
			' codierten Strings hinzu
			strChar = Asc(sCode.Chars(i))-48 + QuerSumme(strGesamt)
			strGesamt += strChar
 
			' Wenn Index größer als Array, fange wieder von vorne an mit durchlaufen
			Do Until CInt(strChar) < 36
				strChar = CInt(strChar)-36
			Loop
			strReturn += arr.Item(strChar)
		Next
 
		' Codierten String zurückgeben
		Return strReturn
	End Function
 
	Function QuerSumme(ByVal Value As String) As Integer
		' Nur berechnen, wenn String nur Ziffern enthält
		If IsNumeric(Value) Then
			Dim Summe As Integer = 0
 
			' Durchlaufe jede Ziffer und addiere hinzu
			For i As Integer = 0 To Value.Length - 1
				Summe = Summe + Value.Substring(i,1)
			Next
 
			' Berechnete Quersumme zurückgeben
			Return Summe
		Else
			Return 0
		End If
	End Function
 
	Function CreateList() As List(Of String)
		' Variablendeklaration
		Dim Liste As New List(Of String)
 
		' Füge alle Ziffern hinzu
		For i As Integer = 48 To 57
			Liste.Add(Chr(i))
		Next
		' Füge alle Großbuchstaben hinzu (A-Z)
		For i As Integer = 65 To 90
			Liste.Add(Chr(i))
		Next
 
		' Liste zurückgeben
		Return Liste
	End Function