It looks like a logic error in your custom action code. When I change the Show call like so:
Dim res As Integer = fInput.ShowDialog()
MessageBox.Show(res)
If res = DialogResult.OK Then
...
The messagebox displays the value 2, but you're comparing with DialogResult.OK, which has a value of 1, and so your logic to assign macros (and I suspect your MessageBox call as well) is skipped. Somewhere you need to update the value that ShowDialog returns or possibly use your own result value in a member variable of your form.
|