I was getting an error message until i realized "End If" had to be added to the end. Now it's working great, here is an example of my idea. You never know what Hal will say or what emotion he will display.
If InStr(1, LCase(OriginalSentence), "hate you") > 0 _
Or InStr(1, LCase(OriginalSentence), "has died") > 0 _
Or InStr(1, LCase(OriginalSentence), "spank you") > 0 Then
Randomize
Select Case int(rnd()*

Case 1
HalCommands = "<HAPFILE>Psycho.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 2
HalCommands = "<HAPFILE>brokenheart.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 3
HalCommands = "<HAPFILE>sad.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 4
HalCommands = "<HAPFILE>angry.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 5
HalCommands = "<HAPFILE>Mad.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 6
HalCommands = "<HAPFILE>Eater_Of_Bugs.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 7
HalCommands = "<HAPFILE>Insane.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
Case 8
HalCommands = "<HAPFILE>snarl.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
End Select
End If