VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "classCOBcode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' COB codes. '

Option Explicit

Public Value As String
Public Name As String
Public Params As Long

Public Sub Load(Buffer As String)
    Value = Left(Buffer, 8)
    Name = Trim(Mid(Buffer, 9, 19))
    Params = Val(Right(Buffer, 1))
End Sub
