If userselecttextfile=1 then
  textfilename = VpFileDialog(window,'OPEN','*.txt','GOAT - Open Text File')
if length(textfilename) > 0 then
  do
    textfileexist=stream(textfilename,'C','QUERY EXISTS')
    parse upper value textfileexist with,
    textname'.'ext
  end
  else
    textfileexist=''
IF (LENGTH(textfileexist) > 0) & (ext='TXT' | ext='DOC' | ext='HTM' | ext='HTML' | ext='TEX') THEN
  do
    /* Load item from file 1001 Multi-Line Entry Field */
    CALL VpLoadFromFile window,1001,textfilename
    /* Set changed flag off 1001 Multi-Line Entry Field */
    CALL VpItem window,1001,'SENDMSG','0x01bb','0','0'
    if textautorun=1 then
      call externaltexteditor
  end
  else
    if length(textfilename) > 0 then
      response=vpmessagebox(window,'File Not Found','The File Was not Found')


