Efectivamente como te dice Sagutxo...
entonces pase parte de esto a Visual...Código: Text
[color=blue] Dim cadena Dim X Private Sub Command1_Click() cadena= txt1.text X = Len(cadena) For I = 1 To X if ((I+3) Mod 27) then cifra = cifra & Mid(cadena,I,1) End If Next I tct2.text = cifra End Function[/color]
Al primcipio leo la cadena y me da cuantos caracteres tengo, meto despues un for, pero al hacer la operacion (sumatle al caracter 3 posiciones mas del alfabeto, y sacarle el mod para saber que letra la sustituira, no la hace) esa es mi duda.