Lio con Arrays

[X-TN]

Muy buenas

Esto es un código que tengo, y lo que supuestamente hace es coger una cadena "cifrada" de un textbox y "desencriptarlo" y mandarlo a otro textbox. La cosa es que cada letra o numero, esta alli "cifrada" en tres numeros. Por eso use el split, pero no estoy convencido de haberlo usado correctamente. Aunque luego me tira error en la parte del array. Alguien podría tirarme un cable? o orientarme un poco?

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Dim Tamaño As String
Dim Carac As String
Dim Cadena As String
Dim tArray() As String
Dim Traduc As String
Dim Decrip As String
Dim valor As Byte
Tamaño = Len(Text5.Text)
Carac = Tamaño \ 3
Cadena = Text5.Text
tArray = Split(Cadena, Carac)
valor = 101
Text3.Text = Carac
    For i = 1 To Carac
        Traduc = tArray(i) - valor
        Decrip = Chr(Traduc)
        txto = Text2.Text
        Text2.Text = txto & Decrip
    Next i
End Sub

tambien probe con el LBound y UBound pero alli me enrolle más todavía

Gracias 

Salu2

[Cicklow]

mira el problema que tnes es que estas usando mal el split el split divide una cadena en arrays pasandole un delimitados
ej:

Código [Seleccionar] Expandir


a="hola-mundo"
b=split(a,"-")
msgbox b(0) 'muestra hola
msgbox b(1) 0muestra mundo


tu solucion seria:

Código [Seleccionar] Expandir


valor = 101
txto=""
for i=1 to len(text5)
Traduc = mid(text5,i,3) - valor
Decrip = Chr(Traduc)
txto = txto & Decrip
next
text2=txto


espero que te sirva y suerte!!!

saludos

[X-TN]

Hola!

Muchas gracias

Alfinal tambien habia dado con el Mid, es que antes no me funcionaba porque algunas cosas no tenian 3 carcteres, pero al sumarle los 100 si. Y es que tarde en darme cuenta xDDDDDD

Gracias

Salu2