sigo con cdosnumeros

Hola! Tengo este codigo: Dim co As Collection Dim n1 As cDOSNumeros co = New Collection n1 = New cDOSNumeros Dim cadena As String '// Agregar objetos a la colección n1.m_col1 = 54 n1.m_col2 = 34.971 co.Add(n1, "2") ...