Dim stringField As New MyStringField("string")
Dim priceField As New MyPriceField(14.54)

message.setField(stringField)
message.setField(priceField)

message.getField(stringField)
message.getField(priceField)