'cConcatenar7913.cls
Private Memoria As String
Private Capacidad As Long
Private TAM As Long
 
Private Sub Class_Initialize()
        Capacidad = 65536
        Memoria = Space$(65536)
        TAM = 0
End Sub
 
Public Sub Agregar(ByRef STR As String)
    Dim actTAM As Long
        actTAM = LenB(STR) / 2
        Do While actTAM > Capacidad - TAM
            Memoria = Memoria & Space$(Capacidad)
            Capacidad = Capacidad * 2
        Loop
        MidB$(Memoria, TAM + TAM + 2) = STR
        TAM = TAM + actTAM
End Sub
 
Public Property Get CerrarSTR() As String
        CerrarSTR = LeftB$(Memoria, TAM + TAM)
        Call Class_Initialize
        Debug.Print "Se ha borrado el string viejo y creado uno en blanco"
End Property
 
Public Property Get TamañoACT() As Long
        TamanoACT = TAM
End Property