| Pregunta: | 42388 - DIVIDIR UNA CADENA LETRA POR LETRA |
| Autor: | Carlos Esteban |
| Quiero dividir una cadena letra por letra de modo que cada vez que la primera letra sea una A el programa ejecute un evento. | |
| Respuesta: | MArito |
| Dim f As Integer
For f = 1 To Len(Text1.Text) If UCase(Mid(Text1.Text, f, 1)) = "A" Then MsgBox "hola" End If Next f el msgbox "hola" lo cambias por la llamada al evento ej: Command1_Click() Salu2. Cualquier cosa avisame. Mario. | |