Save issue with Rich Text Field

I am executing a script that creates links to "program" documnts within my database, based upon a list of "program" names.  This script is called with an action button.  When this script is executed, any unsaved text that was in a rich text field within the form is deleted.  Any clue what might be causing this?  Thanks in advance for your help!

Here is the script that I am using:

' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
     'This script will create links to the programs that are in the ProgramList.
     ' If the program list is blank then no links will be created, and any existing links will be deleted.
     ' If the ProgramList is not blank, then this script will loop through the programList.  
          ' If the the program is in the All Executable Programs view, then a link to that program document will be created.
          ' If the progam is not found in the view, then no link is created, and a message is provided saying that the
          '  program was not found.
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Sub Click(Source As Button)
     Dim ws As NotesUIWorkspace
     Dim uidoc As NotesUIDocument 'current document
     Dim object As Variant
     Dim doc As NotesDocument
     Dim viewdoc As NotesDocument
     Dim ProgList As NotesItem
     Dim rtitem As NotesRichTextItem
     Dim EditMode As Integer
     
     Set ws = New NotesUIWorkspace
     Set uidoc = ws.CurrentDocument
     Set doc = uidoc.Document
     EditMode = uidoc.EditMode
     uidoc.Close
     
     Doevents
     Set ProgList = doc.GetFirstItem("ProgramList")
     If (ProgList.Text <> "") Then 'If program list is blank then links aren't provided
          Set db = doc.ParentDatabase
          Set view = db.GetView( "All Executable Programs" )
          Call view.Refresh
          Call doc.RemoveItem("ProgramLinks") 'deletes current links
          Set rtitem = doc.CreateRichTextItem("ProgramLinks")
          Forall program In doc.GetItemValue( "ProgramList" )
               Set viewdoc = view.GetDocumentByKey( program, True ) 'returns the doc in the view with the matching program Name
               If (viewdoc Is Nothing) Then  
                        'Program doesn't exist in the view , no link is created and a message is provided
                    Call rtitem.AppendText(program & " - This program is not in the list of Executable Programs. Program Name or Program Type may have changed.")
                    Call rtitem.AddNewLine( 1 )
               Else
                       'creates a link to the program document and displays the program name
                    Call rtitem.AppendDocLink( viewdoc, viewdoc.ProgramName(0) )
                    Call rtitem.AppendText(viewdoc.ProgramName(0))
                    Call rtitem.AddNewLine( 1 )
               End If
          End Forall
          doc.Form = "Job"
          Call doc.Save( False, True )
     Else
          'programList is blank, so ProgramLinks should be blanked out as well.  
          Call doc.RemoveItem("ProgramLinks")
     End If
     'reopens the original job document, with the ProgramLinks field updated
     Set uidoc = ws.EditDocument(EditMode, doc)
     If (EditMode) Then Call uidoc.GotoField( "ProgramList" )
     'setting saveOptions to "0" is done so that the user is not prompted to save this document.
     'saveOptions for the currentDocument (uidoc) will be set to "1" when it is reopened
     doc.SaveOptions = "0"
End Sub