[Source] Código Para Buscar Palabras Y Cadenas En Vb6

GuilleMt2ANGNC

Uno de mis códigos favoritos

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

Simplemente lo meten en un modulo.

Para usar:

Buscar("diosesmx")

Si alguno tiene alguna duda sobre su uso mp :icon_cheesygrin:

Anghios

Te lo paso a VB.NET xD

dim hola as string = textbox1.text
if hola.contains(textbox2.text) then
msgbox("resultados encontrados")
else
msgbox("no hay coincidencias")
end if