Code:
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