Excelente funciona perfecto!! Estoy muy agradecido,... Pero pensé que lo podía adaptar a como lo requiero, no obstante no lo he logrado... En realidad tengo tres grupos de palabras verbos Nivel bajo, Nivel medio y Nivel alto y no me permite distinguir con Elseif pensé que si podría, aqui pongo los tres niveles de verbo
HTML Code:
'nivel bajo
Dim palabranb As String
palabranb = "Conocer,Comprender,Calcar,Citar,Encontrar,Enumerar,Etiquetar,Fijar,Localizar,Memorizar,Mostrar,Recitar,Recordar,Relatar,Repetir,Reproducir,Señalar,Subrayar,Comentar,Describir,Determinar,Dibujar,Diferenciar,Explicar,Expresar,Generalizar,Identificar,Ilustrar,Informar,Leer,Observar,Parafrasear,Reconocer,Resumir,Revisar,Secuenciar,Sintetizar"
If InStr(palabranb, TextBox1) > 0 Then
MsgBox "El verbo: " & TextBox1 & " es de nivel bajo"
'nivel medio
Dim palabranm As String
palabranm = "Aplicar,Analizar,Comparar,Confeccionar,Demostrar,Desarrollar,Dramatizar,Ejecutar,Ejemplificar,Ejercitar,Emplear,Fomentar,Hacer,Interpretar,Manipular,Modificar,Operar,Organizar,Practicar,Predecir,Realizar,Reestructurar,usar,Aclamar,Calcular,Concluir,Constatar,Cuestionar,Debatir,Desarmar,Descubrir,Desmenuzar,Destacar,Diagramar,Discriminar,Distinguir,Enfocar,Examinar,Experimentar,Inferir,Inspeccionar,Probar,Relacionar,Resolver"
ElseIf InStr(palabranm, TextBox1) > 0 Then
MsgBox "El verbo: " & TextBox1 & " es de nivel medio"
'nivel alto
Dim palabrana As String
palabrana = "Evaluar,Crear,Argumentar,Asignar valor,Coleccionar,Comprobar,Considerar,Decidir,Discutir,Elegir,Especificar,Estimar,Formular,Hipotetizar,Integrar,Investigar,Justificar,Juzgar,Medir,Preferir,Priorizar,Recopilar,Tipificar,Validar,Valorar,Actualizar,Componer,Construir,Deducir,Diseñar,Elaborar,Ensamblar,Escribir,Fabricar,Idear,Imaginar,Intuir,Inventar,Manejar,Modelar,Ordenar,Producir,Programar,Proponer,Reconstruir"
ElseIf InStr(palabrana, TextBox1) > 0 Then
MsgBox "El verbo: " & TextBox1 & " es de nivel Alto"
Else
MsgBox "No Existe el verbo: " & TextBox1 & " en la Taxonomía de Bloom"
Exit Sub
End If