Duda con "If InStr"

[usuario oculto]

 con esto...
el code me busca una cosa y si la encuentra sale mensaje:

Código [Seleccionar] Expandir


'la parte del código es la que se aseugra de haberlo encontrado:

If InStr(Titulo_Win, El_titulo) <> 0 Then

msgbox ("hola mundo")




lo que pretendo es que cuando lo busque si no lo encuentra me salga algo tipo

msgbox ("no encontrado")
'o lo que me la gana, ejemplo , cerrar un timer o reiniciar el pc..

20:14 sin resolver

[AlxSpy]

agregale un else:

Código [Seleccionar] Expandir

'la parte del código es la que se aseugra de haberlo encontrado:

If InStr(Titulo_Win, El_titulo) <> 0 Then

msgbox ("hola mundo")
else
msgbox "No se encontro"
end if



[usuario oculto]

no funciona de esa manera, siempre me sale la que pongo debajo del "else" aunque sea correcta la búsqueda

[AlxSpy]

es sencillo asi te va quedar claro el uso de esa funcion:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim CadenaDondeBuscar As String
    Dim CadenaABuscar As String
   
    CadenaDondeBuscar = "hola que tal"
    CadenaABuscar = "que"
   
    If InStr(1, CadenaDondeBuscar, CadenaABuscar) <> 0 Then
        MsgBox "cadnena encontrada", vbInformation
    Else
        MsgBox "no se encontro la cadena", vbCritical
    End If
   
    End
End Sub



en CadenaABuscar cambiale por otra cosa como "qpow" y se va ejecutar el else.

[Edu]

Código (vb) [Seleccionar] Expandir


Dim text As String
Dim palabra As String

text = "Hola mundo"
palabra = "mun"

If InStr(text, palabra) Then
MsgBox "el string palabra se encuentra dentro de texto"
Else
MsgBox "el string palabra no se encuentra dentro de texto"
End If