HoLas, bueno creo que lo que kieres es saber la posicion de una letra dentro de una cadena de caracteres, yo hice una funcion que hace eso hace tiempo.
te dejo el codigo fuente bien comentado para q lo entiendas :smt020
'---------------------------------------------------
'Funcion para mostrar la posicion de una letra
'dentro de una cadena de caracteres.
Private Function StrEncontrar(laCadena$, laLetra$) As Integer
Dim i%, Tam% 'Variables para el bucle for.
Dim Comprobar$ 'Para acelerar el proceso.
'Obtengo el numero de caracteres
Tam% = Len(laCadena$)
'Recorro la cadena.
For i% = 1 To Tam%
'Asigno la letra a comprobar
Comprobar$ = Mid$(laCadena$, i%, 1)
'Compruebo si la letra es la buscada
If Comprobar$ = laLetra$ Then
'La variable i% tiene la pos del caracter
StrEncontrar = i%
Exit Function 'Salir de la funcion
End If
Next i%
End Function
'---------------------------------------------------
espero q te sirva.
Salu2. :smt020
__________________
Luis E. Garcés V.
|