[SRC] Codigo para buscar palabras y cadenas en VB6
Publicado: 23 Mar 2011, 13:32
Bueno,lo meten en un modulo y listo,alguna utilidad le daran:
Luego para usarlo:
-Saludos-
Código: Seleccionar todo
Function Buscar(Palabra As String) As String
Dim Codigo As String
Codigo = InStr(1, Form1.Text1.Text, Palabra)
If Codigo = 0 Then
MsgBox "No Encontrado",vbexclamation,me.caption
Else
MsgBox "Encontrado",vbinformation,me.captio
End If
End Function
Código: Seleccionar todo
Buscar("Indetectables")