'ZIGGY TELLS USER WHO LEARNED HIM INFORMATION ON A TOPIC. version 1.2
       Dim Who
       If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "Reference.brn") = "TRUE" Then
       Who = HalBrain.QABrain(UCase(PrevSent), WorkingDir & "ScreenNames3.brn", UserBrainRel)
       GetResponse = "My friend " & Who & ", " & "told me about that. "
       DebugInfo = DebugInfo & Who & " told me this. " & vbCrLf
       Else
       DebugInfo = DebugInfo & "Nobody told me this. " & vbCrLf
       End If
       'ZIGGY SAVES WHO TAUGHT INFORMATION.
       HalBrain.AppendFile WorkingDir & "ScreenNames3.brn", "@" & UserName & vbCrLf & " " & Trim(UCase(OriginalSentence))
       'ZIGGY TELLS USER IF HE KNOWS A USER IF THE USER HAD ASK IF ZIGGYS KNOWS THAT PERSON.
       'ZIGGY WILL ALSO TELL USER WHAT THE USER IN QUESTION SAID TO ZIGGY.
       Dim KnownUser, KnownUserSaid
       If HalBrain.TopicSearch(UserSentence, WorkingDir & "ScreenNames6.brn") = "TRUE" Then
       KnownUser = HalBrain.QABrain(UCase(UserSentence), WorkingDir & "ScreenNames4.brn", UserBrainRel)
       KnownUserSaid = HalBrain.QABrain(UCase(UserSentence), WorkingDir & "ScreenNames5.brn", UserBrainRel)
       GetResponse = "Yes, " & KnownUser & ", said, (" & KnownUserSaid & "), to me. "
       DebugInfo = DebugInfo & KnownUser & ", said, (" & KnownUserSaid & "), to me. " & vbCrLf
       End If
       HalBrain.AppendFile WorkingDir & "ScreenNames4.brn", "@" & UserName & vbCrLf & " " & Trim(UCase(UserName))
       HalBrain.AppendFile WorkingDir & "ScreenNames5.brn", "@" & OriginalSentence & vbCrLf & " " & Trim(UCase(UserName))
       HalBrain.AppendFile WorkingDir & "ScreenNames6.brn", """" & UserName & """,""" & "TRUE" & """"