This is a fast, efficient way to make a split function. For longer strings, performance can be improved by enlarging AllocUnits.
Public Function Split(strText As String, _Optional Byval Delimited As String = vbNullString) As Variant Const AllocUnits = 10 Dim Count As Long, startPos As Long, EndPos As Long Dim MaxSubscription As Long, DelimitedLen As Long If Len(Trim$(strText)) = 0 Then Exit Function If Len(Delimited) = 0 Then Delimited =
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
