Run-time error '5': Invalid procedure call or argument" in "Function myGetOpenFileName"Solved

I am running the VBA demo code using Windows 10 Home 64 bit and Office 365 32 bit. When I run the Form "frmActivateOffline" and click the "Activate using the response" button I get a "Run-time error '5': Invalid procedure call or argument" in "Function myGetOpenFileName(Optional sPath As String) as String)" at the statement "sFile = MacScript(sMacScript) which also has an uncommented Debug.Print statement on the line above. In "Function myGetOpenFileName(Optional sPath as String) as String" there is a comment at the top of the code indicating this is a known bug in the MacScript causing a runtime error when the user clicks cancel. What is the corrected code?