Dim palabranb As String, palabrana As String, palabranm 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"
  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"
  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"
  
  Select Case True
    Case InStr(palabranb, TextBox1) > 0: MsgBox "El verbo: " & TextBox1 & " es de nivel bajo"
    Case InStr(palabranm, TextBox1) > 0: MsgBox "El verbo: " & TextBox1 & " es de nivel medio"
    Case InStr(palabrana, TextBox1) > 0: MsgBox "El verbo: " & TextBox1 & " es de nivel Alto"
    Case Else
      MsgBox "No Existe el verbo: " & TextBox1 & " en la Taxonomía de Bloom"
  End Select