How to create a varchar(max) field in ADOX in VB6

Question

Using VB6, MSSqlServer and ADOX, I need to create a field to store large text, and to use varchar (MAX).
A [DefinedSize] property of ADOX is long.
I would like to know how to set this field to varchar(max) on create.

A exemple of my code:

Case "dbText", "10"
    coluna.Type = adVarChar
    coluna.DefinedSize = HERE I DON'T KNOW