    Imports QuickFix.StringField
    Imports QuickFix.DoubleField

    Public Class MyStringField : Inherits StringField
      Public Sub New()
        MyBase.New(6123)
      End Sub

      Public Sub New(Dim data As String)
        MyBase.New(6123, data)
      End Sub
    End Class

    Public Class MyPriceField : Inherits DoubleField
      Public Sub New()
        MyBase(8756)
      End Sub

      Public Sub New(Dim data As Double)
        MyBase(8756, data)
      End Sub
    End Class