'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