Private Sub CommandButton1_Click()
Dim palabra As String
  palabra = "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(palabra, TextBox1) > 0 Then
    MsgBox "Si Existe ese verbo:" & TextBox1
  Else
    MsgBox "No Existe ese verbo:" & TextBox1
  End If
End Sub