q onda a tods!
tngo una duda
con repcto a mi trabajo.
no c q me falló en la lógica pro el chist s q solo me arroja l primer msgbox
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim caracteres As String
Dim TamañoCadena As Integer
Dim i As Integer
caracteres = pantalla.Text
TamañoCadena = Len(caracteres)
For i = 1 To Len(MiCadena)
If caracteres = Mid(MiCadena, i, TamañoCadena) Then
MsgBox("se encontró lo buscado")
Exit Sub
End If
Next i
MsgBox("no se encontró lo buscado")
