'Hi Psych.
'Here's an example of one way it could be done for sub-directory.
If InStr(1, UserSentence, "Heart", vbTextCompare) = 0 And (InStr(1, UserSentence, "Lungs", vbTextCompare) > 0 And (InStr(1, UserSentence, "Cancer", vbTextCompare) > 0 Or InStr(1, UserSentence, "Disease", vbTextCompare) > 0)) Or (InStr(1, UserSentence, "Medicine", vbTextCompare) > 0 And InStr(1, UserSentence, "Thearpy", vbTextCompare) > 0) Then
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "<a href="file:///C|/C:Program Files/ZabawareUltra Hal Assistant 4/HALSUB/MedicalUser_Strings.brn"></a>")
End If
'Best of wishes and new discoveries.
'Jerry.