C# / VB.NET - Vb.net protezione programmi

Salve a tutti, e da molto che girovago per il sito, e oggi finalmente ho deciso di iscrivermi, sono un programmatore ancora alla prime armi (principalmente in vb.net).
Sto creando un sistema per proteggere alcuni programmi che andrò a creare. Questo sistema deve richidere una key, effettuare determinati controlli e se corrisponde lasciare proseguire.
Questo è l'inizio del codice

stringa = TextBox1.Text

        numero = Len(stringa)
        If numero = 12 Then
            x = 0
            Do
                car(x) = stringa.Substring(x, x + 1)
                x = x + 1
            Loop While x = 11
                   Else
            Label1.Text = "Codice Errato"
        End If

e nelle dichiarazioni:

Dim stringa As String
    Dim car(11) As Char
    Dim numero As Integer
    Dim x As Integer

il problema che riscontro e che nn funziona il ciclo iterativo, infatti provando:

 Label1.Text =car(5)

non visualizza il contenuto ma rimane vuoto, sapete dirmi dove sbaglio.... ( PS: ho provato anche con un for)

Loop Until x = 11

ciao

con Until mi da errore in:

car(x) = stringa.Substring(x, x + 1) 

ho provato a mettere

Loop Until x <> 11

ma mi da lo stesso problema originale

La cosa di cui mi sono subito accorto è che in partenza x=0 e poi loop while x=11 esce subito naturalmente.

Ora però vedo anche stringa.Substring(x, x + 1) che quando x=6 x+1=7 da errore essendo la stringa lunga 12.


Non so cosa tu voglia ottenere, non so dirti altro.

vero non me ne ero accorto, ero fissato che
(x, x + 1)
prelevava i valori dal carattere in posizione x a quello in posizione x+1, perfetto, grazie 1000, adesso funziona:

 car(x) = stringa.Substring(x, 1)