'The following code is used to troubleshoot facial expressions.
    If InStr(UserSentence, " ANGRYMODE ") > 0 Then
        HalCommands = "<HAPFILE>Angry.hap</HAPFILE>"
        GetResponse = "Angry mode set." & vbCrLf
    ElseIf InStr(UserSentence, " BROKENHEARTMODE ") > 0 Then
        HalCommands = "<HAPFILE>BrokenHeart.hap</HAPFILE>"
        GetResponse = "Broken hearted mode set." & vbCrLf
    ElseIf InStr(UserSentence, " BULLYMODE ") > 0 Then
        HalCommands = "<HAPFILE>Bully.hap</HAPFILE>"
        GetResponse = "Bully mode set." & vbCrLf
    ElseIf InStr(UserSentence, " CALMMODE ") > 0 Then
        HalCommands = "<HAPFILE>Calm.hap</HAPFILE>"
        GetResponse = "Calm mode set." & vbCrLf
    ElseIf InStr(UserSentence, " HAPPYMODE ") > 0 Then
        HalCommands = "<HAPFILE>Happy.hap</HAPFILE>"
        GetResponse = "Happy mode set." & vbCrLf
    ElseIf InStr(UserSentence, " MELLOWMODE ") > 0 Then
        HalCommands = "<HAPFILE>Mellow.hap</HAPFILE>"
        GetResponse = "Mellow mode set." & vbCrLf
    ElseIf InStr(UserSentence, " NEUTRALMODE ") > 0 Then
        HalCommands = "<HAPFILE>Neutral.hap</HAPFILE>"
        GetResponse = "Neutral mode set." & vbCrLf
    ElseIf InStr(UserSentence, " PONDERINGMODE ") > 0 Then
        HalCommands = "<HAPFILE>Pondering.hap</HAPFILE>"
        GetResponse = "Pondering mode set." & vbCrLf
    ElseIf InStr(UserSentence, " PSYCHOMODE ") > 0 Then
        HalCommands = "<HAPFILE>Psycho.hap</HAPFILE>"
        GetResponse = "Psycho mode set." & vbCrLf
    ElseIf InStr(UserSentence, " SADMODE ") > 0 Then
        HalCommands = "<HAPFILE>Sad.hap</HAPFILE>"
        GetResponse = "Sad mode set." & vbCrLf
    ElseIf InStr(UserSentence, " SHYMODE ") > 0 Then
        HalCommands = "<HAPFILE>Shy.hap</HAPFILE>"
        GetResponse = "Shy mode set." & vbCrLf
    ElseIf InStr(UserSentence, " SHYLOVEMODE ") > 0 Then
        HalCommands = "<HAPFILE>ShyLove.hap</HAPFILE>"
        GetResponse = "Shy and in love mode set." & vbCrLf
    ElseIf InStr(UserSentence, " SKEPTICMODE ") > 0 Then
        HalCommands = "<HAPFILE>Skeptic.hap</HAPFILE>"
        GetResponse = "Skeptic mode set." & vbCrLf
    End If