Sinceramente no se si sera tan rapida como la de Psyke1 pero me agrado y arme una, alguien haga un test :O
Código
'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
GRACIAS POR LEER!!!