vOICI LE CODE VBA A MODIFIER:
Sub Launch_Order_Dialog()
Dim XPos As Variant
Dim YPos As Variant
Dim result As Variant
Dim dOrder As Object
Set dOrder = CreateObject("REDI.ORDER")
XPos = 10
YPos = 10
dOrder.Symbol = UCase(Worksheets("OrdDlg").Cells(2, 1).Value)
dOrder.Quantity = Worksheets("OrdDlg").Cells(2, 2).Value
dOrder.Side = Worksheets("OrdDlg").Cells(2, 3).Value
dOrder.Price = Worksheets("OrdDlg").Cells(2, 4).Value
dOrder.Exchange = Worksheets("OrdDlg").Cells(2, 5).Value
dOrder.Account = Worksheets("OrdDlg").Cells(2, 6).Value
dOrder.UserID = Worksheets("OrdDlg").Cells(2, 7).Value
dOrder.PriceType = "LMT"
dOrder.TIF = "Day"
dOrder.StopPrice = 0
dOrder.Memo = "none"
dOrder.Password = Worksheets("OrdDlg").Cells(2, 8).Value
dOrder.DisplayQuantity = Worksheets("OrdDlg").Cells(2, 9).Value
result = dOrder.DisplayOrderDlg(XPos, YPos)
End Sub