VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Function Part_of_speech(Article As String) As String
Select Case Left$(Article, 1)
Case "J": x$ = "Adjective"
Case "j": x$ = "Adjective/verb"
Case "A": x$ = "Adverb"
Case "a": x$ = "Adverb/verb"
Case "B": x$ = "Aricle"
Case "C": x$ = "Conjunction"
Case "I": x$ = "Interjection"
Case "N": x$ = "Noun"
Case "d": x$ = "Noun/Adjective"
Case "n": x$ = "Noun/verb"
Case "P": x$ = "Preposition"
Case "O": x$ = "Pronoun"
Case "V": x$ = "Verb"
Case "q": x$ = "Possessive pronoun/pronoun"
Case "o": x$ = "Adjective/pronoun"
Case "Q": x$ = "Possesive pronoun"
Case "X": x$ = "[Don't care category]"
Case "p": x$ = "Preposition/adverb"
Case Else: x$ = "Unknown"
End Select
Part_of_speech = x$
End Function

Function Past_Participle(Article As String) As Boolean
Past_Participle = (Mid$(Article, 2, 1) = "1")
End Function

Function Negative(Article As String) As Boolean
Negative = (Mid$(Article, 3, 1) = "1")
End Function

Function To_be(Article As String) As Boolean
To_be = (Mid$(Article, 4, 1) = "1")
End Function

Function Verb_plus_ing(Article As String) As Boolean
Verb_plus_ing = (Mid$(Article, 5, 1) = "1")
End Function

Function Aux(Article As String) As Boolean
Aux = (Mid$(Article, 6, 1) = "1")
End Function

Function Word(Article As String) As String
Word = Mid$(Article, 7)
End Function

