Can I set the SaveAs Options in VBA? Ie Set the Remap CSV File

Hi,

Microstation CE Update 13, or OpenRoads Designer CONNECT Edition 2019 R2

I have a form and want the user to use a checkbox to determine which CSV remapping file will be used for linestyle remapping. I then want to set the SaveAs options through vba. 

Below is an image of the options that need to be set from vba -

I recorded this action but it is not working.

Implements IModalDialogEvents
Sub IModalDialogEvents_OnDialogClosed(ByVal DialogBoxName As String, ByVal DialogResult As MsdDialogBoxResult)

End Sub

Private Sub IModalDialogEvents_OnDialogOpened(ByVal DialogBoxName As String, DialogResult As MsdDialogBoxResult)

    If DialogBoxName = "Save As" Then'   The following statement opens modal dialog "Save As V8 Options"

        CadInputQueue.SendKeyin "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd " + oFilePath

        CadInputQueue.SendKeyin "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd " + oNewFileName'   Remove the following line to let the user close the dialog box.
        DialogResult = msdDialogBoxResultOK

    End If  '

    If DialogBoxName = "Save As V8 Options" Then'   The following statement opens modal dialog "Select Remapping CSV File"'   Set a variable associated with a dialog box'   This only modifies a few bits of the variable it changes. It first'   creates a mask for clearing the bits it will change. Then it gets'   the variable and uses the mask to clear those bits. Finally'   it sets the desired bits in the value and saves the updated value.
        lngTemp = Not 1
        lngTemp = GetCExpressionValue("g_remapOptions.destV8.remapLineStyles", "REMAP") And lngTemp
        SetCExpressionValue "g_remapOptions.destV8.remapLineStyles", lngTemp Or 1, "REMAP"

        CadInputQueue.SendKeyin "LOCK FENCE INSIDE "'   Remove the following line to let the user close the dialog box.
        DialogResult = msdDialogBoxResultOK

    End If  ' Save As V8 Options

    If DialogBoxName = "Select Remapping CSV File" Then
            CadInputQueue.SendKeyin "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\ProgramData\Bentley\OpenRoads Designer CE\Configuration\WorkSpaces\TfNSW Design\Standards\Data\"

            CadInputQueue.SendKeyin "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd " + oRemapFileName'   Remove the following line to let the user close the dialog box.
        DialogResult = msdDialogBoxResultOK

    End If  ' Select Remapping CSV File

End Sub

I noticed this question has been raised several years ago with no real solution. Is it not possible?