'Reading paragraph of text from text file with Haptek engine.
	If InStr(UserSentence, " READFILE ") > 0 Then
		readFile = Trim(Replace(UserSentence, " READFILE ", " "))
		readFile = WorkingDir & "read\" & readFile & ".txt"
		readAbout = HalBrain.ChooseSentenceFromFile(readFile)
		If Trim(readAbout) <> "" Then
			HalCommands = "<HAPTEXT>" & "\q2 [s0= [" & readAbout & "]]" & "</HAPTEXT>"
		End If
	End If