problema con IF y varias "condiciones"

[danielsito]

resulta que quiero hacer que cuando una caja de texto no ponga una cosa u otra de un mensaje de error traducido al lenguaje humano seria asi

Si el texto4 es diferente a "hola" o "adios" entonces

texto1.text = " no reconocido

y aqui el codigo que me da un error "type mismatch" ..

Código:

If Text4.Text <> "hola" Or "adios" Then
    Text1.Text = " Comando no reconocido "
End If

claro si lo pongo por separado ( 2 ifs ) siempre daria el error porque si escribiera "hola" en el text4 no estaria escrito "adios" por lo tanto saltaria el "error" ( en el caso de que estuviera en 2 ifs ) creo que me han entendido como puedo arreglarlo ??
saludos amigos !

[fesero]

proba asi.. no estoy seguro...

If NOT (Text4.Text = "hola") Or (Text4.Text ="adios") Then
Text1.Text = " Comando no reconocido "
End If

[boluart]

Código:

If Text4.Text <> "hola" and Text4.Text <> "adios" Then
    Text1.Text = " Comando no reconocido "
End If

[danielsito]

gracias a los dos , voy a probar y os cuento si funciona o no :)

EDIT : no me funcionaba ninguno de los dos pero lo he solucionado con select case / end selec . gracias a los 2 igualmente

[Avellaneda]

Iniciado por danielsito

gracias a los dos , voy a probar y os cuento si funciona o no :)

EDIT : no me funcionaba ninguno de los dos pero lo he solucionado con select case / end selec . gracias a los 2 igualmente

El código de boluart sí funciona, lo que ocurre es que no limpias el Text1 y siempre mantiene el valor antiguo, prueba así:

Código vb6:

If Text4.Text <> "hola" And Text4.Text <> "adios" Then
    Text1.Text = " Comando no reconocido "
Else
    Text1.Text = " Se reconoce el comando"
End If