[VBScript] My first class

A "Container" class, which I can add stuff to and then pull it all out nicely Join()-ed or else as a raw array. class Container private vat() private itemCount private sub Class_Initialize() itemCount = 0 end sub private sub Class_Terminate() end sub public sub Import( cText ) redim preserve vat( itemCount ) vat( itemCount ) = cText itemCount = itemCount + 1 end sub public function Export( punctuatedBy ) Export = Join( vat, punctuatedBy ) end function public function Raw() Raw = vat end function end class And the nice thing is I can have multiple collections rather than the single instance thing I had a couple of days ago. Some test code ran like this: dim c1, c2 Set c1 = New Container Set c2 = New Container For i = 1 to 100 c1.Import i c2.Import i ^ i Next WScript.Echo Join( c1.Raw(), "," ) WScript.Echo c2.Export( ":" )