Extracting data after a keyword

[KerryA]

I have a memofield in an Access dB that contains physician dictations. I am trying to capture a patients allergies and place them in a new field if they were dictated. He is an example of a dictation where Allergies is a keyword somewhere in the dictation:



.....
Allergies g24
Sulfa Drugs.
Allergies to drugs, herbals, foods, radiocontrasts, latex, and environmentals were reviewed with the patient.
No changes were reported.eg

I would like to extract "Sulfa Drugs" and place it in a new column. The rest of the information needs to be placed in an additional column.

Here is a another dictation with a different format using a key word.

CURRENT MEDICATIONS:
.
.
.

ALLERGIES:
SEPTRA AND PROLOPRIM.

SOCIAL HISTORY:
.
.
.

Thank you for your assistance,
Kerry

[llkhoutx]

Step 1: Use the InString function to get the character position in the dictation of the character following the string "ALLERGIES:" and call it intStart, integer.
Step 2: Use the InString function to get the character position in the dictation of the character preceding the string "SOCIAL HISTORY:" and call it intStop, an integer.
Step 3: Parse all words in the dictation between intStart and intStop, excluding the string "and" and special characters.