[Bug 48200] Approach "Shell" function stopped working

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=48200

--- Comment #17 from Todd Chester  ---
Created attachment 66493
  --> https://bugs.winehq.org/attachment.cgi?id=66493
Test Approach file using the shell function

Here you go.

Use at your own risk.  No rights reserved to the code.  Do what you wish with
it.

This test Approach file gives the ability to test a shell call to
/usr/bin/send-notify.  The script inside the file is:

..................
Sub NotifySend
    Dim NotifyText As Variant
    Dim Result As Variant
    NotifyText = CurrentView.Body.Text~ Box.text
    'Note: FullAddress must not have any 000DH (carrage returns) in it; use
000AH (line feeds) instead

' Note: 33 is a good return
    Result = Shell ( "z:\usr\bin\notify-send" + "  -u  critical  -t 0 " +
NotifyText )
    Msgbox "Result (33 is a good return) <" + Str (Result) +  ">"
End Sub
.................

The script editor is accessed from Edit --> Scripts & Macros --> Show Script
Editor