[RESOLVED] again help to chang my code

[om-yousif]

I have this code to extract what in between the first two /

If UCase(Left(tmp(x), 10)) = "  SOLUTION" Then
            
            gram = Split(tmp(x), "/")
            
               sLine = sLine & " (" & Trim(gram(1)) & ") " 
           End If

I need some one to help me in changing this code to extract this

(if found these words in the line then extract what in between /
NOUN
PRON
VERB
ADJ

Else if found ( PREP) then extract what in between /

This is a sample of the text I need to search:
SOLUTION 1: (tanaZ~ama) [tanaZ~am_1] tanaZ~am/VERB_PERFECT+a/PVSUFF_SUBJ:3MS
SOLUTION 2: (jAmiEap) [jAmiEap_1] jAmiE/NOUN+ap/NSUFF_FEM_SG
SOLUTION 3: (maEa) [maEa_1] maEa/PREP
SOLUTION 4: (AljamoEiy~ap) [jamoEiy~_1] Al/DET+jamoEiy~/ADJ+ap/NSUFF_FEM_SG
SOLUTION 5: (Al$amosiy~ap) [$amosiy~_1] Al/DET+$amosiy~/ADJ+ap/NSUFF_FEM_SG
SOLUTION 6: (lahA) [li-_1] la/PREP+hA/PRON_3FS



So the information I need to get are
VERB_PERFECT+a
NOUN+ap
PREP
ADJ+ap
ADJ+ap
PRON_3FS


Can anyone help me