SUB
Create
(
Name
AS String ,
Type
AS Integer
[
,
Length
AS Integer ,
Default
AS Variant
]
)