'Hal can play a specific song when asked
	If InStr(UserSentence, " PLAY THE SONG ") > 0 Then
		Set oWMP = CreateObject("WMPlayer.OCX.7")
		songName = Trim(Mid(OriginalSentence, InStr(1, OriginalSentence, " THE SONG ", vbTextCompare) + 10))
            If oWMP.mediaCollection.getByName(songName).Count > 0 Then
		set spSong = oWMP.mediaCollection.getByName(songName).Item(0)
                GetResponse = "I will play the song (" & songName & ")"
                oWMP.openPlayer (spSong.sourceURL)
            Else
                GetResponse = "I could not find the song (" & songName & ") in your Media Library."
            End If
	End If