DataType.bas

Attribute VB_Name = "DataType"
Public DATATYPE_NUMERIC As String
Public DATATYPE_STRING As String
Public DATATYPE_DATE As String
Public DATATYPE_BOOLEAN As String
Public DATATYPE_ERROR As String
Public DATATYPE_AUTOMATIC As String

Sub Initialize()
    DATATYPE_NUMERIC = "numeric"
    DATATYPE_STRING = "string"
    DATATYPE_DATE = "date"
    DATATYPE_BOOLEAN = "boolean"
    DATATYPE_ERROR = "error"
    DATATYPE_AUTOMATIC = "automatic"
End Sub