Mit VB Texte verschlüsseln

    Private Sub EntS()
        UnverschlüsselterText = Nothing
        Dim ende As Boolean = False
        Dim Zwischenlagerung As String = 0
        Dim zwischenlagerungasc As Integer = Nothing
        Dim test As String
        Dim GeheimCode As Integer = 0
        Dim welches As Integer = 1
        Dim anzahl As Integer
        Dim hihi As Integer = 0

        Dim Analyse As Boolean = False
        VerschlüsselterText = TextBox2.Text
        TextBox1.Clear()
        While (ende = False)


            zwischenlagerungasc = Nothing
            anzahl = Nothing
            test = Nothing



            While (Analyse = False)
                '  MsgBox("1")
                test = Mid(VerschlüsselterText, welches, welches)
                welches = welches + 1
                ' MsgBox("2")
                If IsNumeric(test) = True Then
                    zwischenlagerungasc = zwischenlagerungasc & CInt(test)
                    '     MsgBox("3")
                End If
                '  MsgBox("4")

                anzahl = Len(zwischenlagerungasc.ToString)
                '   MsgBox(zwischenlagerungasc)
                '    MsgBox(anzahl)
                If anzahl = 3 Then
                    '    MsgBox("5")

                    Analyse = True
                End If
            End While
            Analyse = False
            MsgBox(zwischenlagerungasc)
            If zwischenlagerungasc = Nothing Then
                ende = True
                '    ElseIf zwischenlagerungasc = " " Then
                '       hihi = hihi + 1
                '      If hihi = 2 Then
                'ende = True
                'End If
            ElseIf IsNumeric(zwischenlagerungasc) = True Then
            UnverschlüsselterText = UnverschlüsselterText + Chr(zwischenlagerungasc)
                '     hihi = 0
            Else
                MsgBox("Error")
            End If




            ' !!!!!!!!!!!!!!!

            ' !!!!!!!!!!!!!!!

            'If Zwischenlagerung = "37" Or Nothing Then
            'ende = True
            'TextBox1.Text = UnverschlüsselterText
            'VerschlüsselterText = Nothing
            'UnverschlüsselterText = Nothing
            ' Exit Sub
            'ElseIf isnumber = True Then

            ' zwischenlagerungasc = zwischenlagerungasc - TextBox3.Text
            'Zwischenlagerung = Chr(zwischenlagerungasc)
            'UnverschlüsselterText = UnverschlüsselterText + zwischenlagerungasc.ToString
            'TextBox1.Text = UnverschlüsselterText
            'Else
            'MessageBox.Show("Der Code darf nur aus Zahlen bestehen und es muss einen Code geben!")
            'ende = True
            'Exit Sub
            'End If




        End While
        TextBox1.Text = UnverschlüsselterText

    End Sub