Hi @DDALY ,

Can you please try setting the exchange later? (see below example)

-Brian

Sub SendDiagonal2()

  Dim myerr As Variant
  Dim rtnVal As Variant
 
  Dim hOrder As New COMPLEXORDER
  
  ' Complex options order header
  hOrder.Strategy = "Diagonal"
  hOrder.SetSymbol 0, "AAPL"
  hOrder.SetExchange 0, "DEM2 DMA"
  hOrder.SetQuantity 0, 1
  hOrder.SetPriceType 0, "Market"
  hOrder.SetTIF 0, "Day"
  hOrder.SetAccount 0, "DEMO2"

  ' Leg 1 of vertical spread
  hOrder.SetSide 1, "Buy"
  hOrder.SetPosition 1, "Open"
  hOrder.SetOptType 1, "Call"
  hOrder.SetMonth 1, "Dec '21"
  hOrder.SetStrike 1, "195.00"

  ' Leg 2 of vertical spread
  hOrder.AddOptionLeg
  hOrder.SetSide 2, "Sell"
  hOrder.SetPosition 2, "Open"
  hOrder.SetOptType 2, "Call"
  hOrder.SetMonth 2, "Nov '21"
  hOrder.SetStrike 2, "200.00"
  
  hOrder.SetExchange 0, "DEM2 DMA"
   hOrder.SetPriceType 0, "Market"

  rtnVal = hOrder.Submit(myerr)

  If Not rtnVal Then
    If myerr <> "" Then
      MsgBox myerr
    Else
      MsgBox "Failed - Please Contact REDI Support."
    End If
  Else
    MsgBox "Submitted"
  End If
  
End Sub

@brian.mullane, That worked perfectly! Thanks a lot, Dermot

@brian.mullane, Just doing some more testing on above and I've noticed when I increase the quantity it still lands in REDI as 1 lot.. very strange. Can you check if you get the same result? Thanks, Dermot

Hello @DDALY ,

Appears to apply for me:

 hOrder.SetQuantity 0, 5

Results in

Try to restart and retest, where you can be sure if it was the same order?

@zoya.farberov, I moved the SetQuantity to just before the Submit and now working fine. Thank You.