Solución 6.10 Crear y utilizar una colección de objetos

Sub TestCollection()  
    Dim LosPOPS As New Collection 
    Dim unPOP As New POP 
    Set unPOP = New POP 
    unPOP.setNombre ("Fidji") 
    LosPOPS.Add unPOP  ...