respuesta = cajaderespuestas2.Text If respuesta = "Casa" Or respuesta = "Hogar" Or respuesta = "chosa" Then MsgBox "Correcto" Else MsgBox "Incorrecto" End If