ok jasondude,  below is your code i changed the directory pathway to (x86) as mine is in the program file for the balboaka and also the zabaware file . and now the hal character is saying that" file does not exist" when say"PLEASE READ STORY I Robot.txt 
The file is actually in the story folder file , to me maybe it's not finding the pathway to this file i have this file in the C:\Program Files(x86)\zabaware\ultrahal assistant 6  file  but i don't see where you have a pathway in this program that leads to it , can you show me below so i can change it i think thats why it's saying that file does not exist.   Rem Type=Plugin
Rem Name=GRETTA Story Reading Function
Rem Author=jasondude7116
Rem Host=Assistant
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel() 
    lblPlugin(0).Caption = "Just say- PLEASE READ STORY//PLEASE READ THE STORY whateverstory" & vbCrLf & "PLEASE READ POEM//PLEASE READ THE POEM whateverpoem" & vbCrLf & "PLEASE READ STORY LIST" & vbCrLf & "PLEASE READ POEM LIST" & vbCrLf & "PLEASE READ WEB COMMANDS" & vbCrLf & "PLEASE READ CLIPBOARD" & vbCrLf & "PLEASE READ NEWS FEED COMMANDS" & vbCrLf & "PLEASE READ WEATHER FEED COMMANDS"
    lblPlugin(0).Move 120, 10, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: PLUGINAREA5
   'read a story   
Set objFSO = CreateObject("Scripting.FileSystemObject")
DudProceed = False
MyClipDir = DudClipDir()
ClipRead = OriginalSentence
If InStr(1, ClipRead, "PLEASE READ STORY LIST", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE STORY LIST", 1) > 0 Then StoryRead = "story list"
If InStr(1, ClipRead, "PLEASE READ POEM LIST", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE POEM LIST", 1) > 0 Then StoryRead = "poem list"
If InStr(1, ClipRead, "PLEASE READ WEB COMMANDS", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE WEB COMMANDS", 1) > 0 Then StoryRead = "WEB COMMANDS"
If InStr(1, ClipRead, "PLEASE READ NEWS FEED COMMANDS", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE NEWS FEED COMMANDS", 1) > 0 Then StoryRead = "NEWS FEED COMMANDS"
If InStr(1, ClipRead, "PLEASE READ WEATHER FEED COMMANDS", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE WEATHER FEED COMMANDS", 1) > 0 Then StoryRead = "WEATHER FEED COMMANDS"
If InStr(1, ClipRead, "PLEASE READ SONG LIST", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE SONG LIST", 1) > 0 Then StoryRead = "SONG LIST"
If StoryRead = "" Then StoryRead = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE READ STORY *", 1)
If StoryRead = "" Then StoryRead = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE READ POEM *", 1)
If StoryRead = "" Then StoryRead = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE READ THE STORY *", 1)
If StoryRead = "" Then StoryRead = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE READ THE POEM *", 1)
If StoryRead <> "" And objFSO.FileExists(MyClipDir & StoryRead & ".txt") = True Then
        GetResponse = StoryRead & "." & vbCrLf
   If GetResponse = StoryRead & "." & vbCrLf Then
   DudProceed = True
   HalBrain.ReadOnlyMode = True
   End If
End If
         If DudProceed = True Then
    Set objWSHShell = CreateObject("WScript.Shell")
    objWSHShell.Run("""C:\Program Files(x86)\Balabolka\balabolka.exe"" -rmq """ & MyClipDir & StoryRead & ".txt""")
         HalBrain.ReadOnlyMode = True
End If
If StoryRead <> "" And objFSO.FileExists(MyClipDir & StoryRead & ".txt") = False Then 
         GetResponse = " That file does not exist. "
HalBrain.ReadOnlyMode = True
End If
ClipRead = OriginalSentence
If InStr(1, ClipRead, "PLEASE READ CLIPBOARD", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ CLIP BOARD", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE CLIPBOARD", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE CLIP BOARD", 1) > 0 Then
Select Case HalBrain.RandomNum(6)
Case 1
IdleResponse67 = "I would love to."
Case 2
IdleResponse67 = "Sure."
Case 3
IdleResponse67 = "Alright."
Case 4
IdleResponse67 = "Okay."
Case 5
IdleResponse67 = "Here it is."
Case 6
IdleResponse67 = "No problem."
End Select
GetResponse = IdleResponse67
         HalBrain.ReadOnlyMode = True
MyClipDir = DudClipDir()
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set FS = CreateObject("Scripting.FileSystemObject")
Set HalXBrain = CreateObject("UltraHalAsst.Brain")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTML = CreateObject("htmlfile")
ClipText = objHTML.ParentWindow.ClipboardData.GetData("text")
       ClipText = Replace(ClipText, vbCrLf, Chr(

 & " ", 1, -1, vbTextCompare)
       ClipText = Replace(ClipText, "", "", 1, -1, vbTextCompare)
       ClipText = Replace(ClipText, "  ", " ", 1, -1, vbTextCompare)
   If objFSO.FolderExists(MyClipDir) Then ClipFolderDoesExist = True Else ClipFolderDoesExist = False
   If ClipFolderDoesExist = False Then
         Set objFolder = objFSO.CreateFolder(MyClipDir)
   End If                        
If objFSO.FileExists(MyClipDir & "tempclipboard.txt") Then
objFSO.DeleteFile(MyClipDir & "tempclipboard.txt")
End If
HalXBrain.AppendFile MyClipDir & "tempclipboard.txt", ClipText   
    Set objWSHShell = CreateObject("WScript.Shell")
    objWSHShell.Run("""C:\Program Files(x86)\Balabolka\balabolka.exe"" -rmq """ & MyClipDir & "tempclipboard.txt""")   
End If
Rem PLUGIN: FUNCTIONS
'Directory
   Function DudClipDir()
   Set fso = CreateObject("Scripting.FileSystemObject")
   DudClipDir = fso.GetAbsolutePathName(".") & "\story\"
   End Function