Imports QuickFix

Public Sub fromApp(Dim message As Message, Dim sessionID As SessionID)
  Dim price As New Price()
  message.getField(price)

  Dim clOrdID As New ClOrdID()
  message.getField(clOrdID)
End Sub