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