Con este codigo lleno un arreglo introcuciendolo desde un textbox
Dim Arreglo() As String
Dim strText As String
Dim lngLenText As Long
Dim lnCnt As Long
Dim var, var1 as String
strText = Text1.Text
lngLenText = Len(strText)
ReDim Arreglo(lngLenText)
For lnCnt = 1 To lngLenText
Arreglo(lnCnt - 1) = Mid$(strText, lnCnt, 1)
Next lnCnt
'en esta parte cambio las letras introducidas que se encuentran dentro del arreglo
If Arreglo (0) = "a" then
var = 11
ElseIf Arreglo (0) = "b" then
var = 12
End If
If Arreglo (1) = "a" then
var1 = 11
ElseIf Arreglo (1) = "b" then
var2 = 12
End If
en donde esta las condiciones de if deseo manejar un For para no repetir 2 veces el mismo codigo
y en donde va la variable var que sea un arreglo y que valla incrementando
lo que quiero esto
Dim Arreglo() As String
Dim Arreglo2() As String
Dim strText As String
Dim lngLenText As Long
Dim lnCnt As Long
Dim var, var1 as String
strText = Text1.Text
lngLenText = Len(strText)
ReDim Arreglo(lngLenText)
For lnCnt = 1 To lngLenText
Arreglo(lnCnt - 1) = Mid$(strText, lnCnt, 1)
Next lnCnt
for I= 1 to lngLenText
If Arreglo(no se que iria aqui) = "a" then
Areglo2(no se que iria aqui) = 11
elseIf Arreglo(no se que iria aqui) = "b" then
Areglo2(no se que iria aqui) = 12
next I
gracias y espero ahora si me puedan entender lo que quiero hacer y me ayuden
By
