Imports QuickFix

Public Sub fromApp(ByVal message As Message, ByVal sessionID As SessionID)
  Dim field As New StringField(44)
  message.getField(field)
End Sub