convertir text box en array

[GrTk]

mi pregutna es si hay alguna funcion que me devuelva
el caracter de un text box, indicando la posicion del caracter.
Ejemplifico.

text1.text = "hola mundo"

a = funcion(text1.text,1)

en este caso a = "h"


text1.text = "hola mundo"

a = funcion(text1.text,4)

en este caso a = "a"


lo pense haciendo primero un right y luego un left, pero no se
si hay una operacion que directamente lo haga.
saludos

[rob1104]

Talvez te sirva la funcion Mid

Mid (cadena, inicio, longitud)

El parámetro cadena es la cadena a extraer caracteres. El parámetro Inicio es donde comenzar y el parámetro longitud, es la cantidad de caracteres a extraer de la cadena de caracteres.

La puedes usar de esta forma.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim a As String
    a = Mid(Text1.Text, 4, 1)
    MsgBox a
End Sub Asi te mostrara el cuarto caracter del contenido de text1.text

Saludos

[GrTk]

era lo que buscaba, gracias

[yovaninu]

para pasar una cadena de texto a un array en el que podamos manejarlo caracter a caracter este seria el código:

Código [Seleccionar] Expandir



Dim ArrayC(1 To 15) As String 'el array
Dim Cadena As String 'la cadena a separar letra a letra
Dim CadAux As String 'auxiliar


Cadena = "Hola" 'cualquier cadena
For i = 1 To Len(Cadena)
   CadAux = Left(Cadena, i)
   ArrayC(i) = Right(CadAux, 1)
Next

'mostramos letra por letra
MsgBox ArrayC(1)
MsgBox ArrayC(2)
MsgBox ArrayC(3)
MsgBox ArrayC(4)


espero sirva.