volevo fare in modo ke dalla testo generato fossero esclusi gli spazi e gli invii

(linguaggio visual basic) cosa c' è di sbagliato second voi ??

For x = 1 To lunghezza

' testo criptato = testoinchiaro + chiave

crypt(x) = CInt(text(x)) + CInt(chiave(x))


' se maggiore di 27 ( ho aggiunto lo spazio e l'invio) si applica il discorso di prima


If crypt(x) > 27 Then
crypt(x) = crypt(x) - 28
End If

' se è uguale a 27 o 26 ( la posizione dello spazio o dell'inzio) si
'esegue un for fino a che non viene assegnato il giusto valore

If crypt(x) = 27 or crypt(x) = 26 Then

For i = 0 To 1000

If crypt(x) = 27 Or crypt(x) > 27 or crypt(x) = 26 Then

chiave(x) = Int((25 * Rnd) + 1)
crypt(x) = CInt(text(x)) + CInt(chiave(x))
Else

Exit For

End If

Next

End If







Next x