<%
Class CStrCat //v1.1
    Private i,sa()
    Public Property Get Value
        ReDim preserve sa(i)
        Value=Join(sa,"")
    End Property 
    Private Sub Class_Initialize()
        i=CLng(0)
        ReDim sa(500)
    End Sub
    Private Sub class_terminate()
        Erase sa
    End Sub
    Public Function Add(ps)
        If Len(ps)=0 Then Exit Function
        If (i>=UBound(sa)) Then upsize
        sa(i)=ps
        i=i+1
    End Function
    Private Sub upsize()
        Dim u
        u=UBound(sa)
        ReDim preserve sa(CLng(u+u*0.1))
    End Sub
End Class 
%>