Public Function iSplit(iString, iFirst, iLeft, iRight As String, iLong As Double) As String
    On Error Resume Next
    
    Dim iFinal As String, iMidLong As Integer, iLen As Double, i As Integer
    
    iLen = (Len(iString) / iLong) - 1
    
    If Int(iLen) = iLen Then
        iLen = iLen - 1
    End If
    
    iMidLong = iLong + 1
    
    For i = 0 To iLen
        If i = 0 Then
            iFinal = iFinal & iFirst & Left(iString, iLong) & iRight
            iString = Mid(iString, iMidLong)
        Else
            If Len(iString) > (iLong * 2) Then
                iFinal = iFinal & iLeft & Left(iString, iLong) & iRight
                iString = Mid(iString, iMidLong)
            Else
                iFinal = iFinal & iLeft & iString & iRight
                iString = vbNullString
            End If
        End If
    Next i
    
    iSplit = iFinal
End Function

String = iSplit("String a Splitear ", "String Primera ", " String Izquierda ", " String Derecha", 4)

String Primera Stri String Derecha  String Izquierda ng a String Derecha  String Izquierda  Spl String Derecha  String Izquierda itear String Derecha 

Pink escribió:iLong As Double quedaria mejor con long. (no hay ningun array, visible al menos.)
gracias por la función :)

Saludos

añade un Principio y un Final a cada valor de la Array final.

Public Function iSplit2(iString, iFirst, iLeft, iRight As String, iLong As Long) As String
    iSplit2 = iFirst
    iSplit2 = iSplit2 & Mid(iString, 1, iLong) & iRight
    iString = Mid(iString, iLong + 1)
    While iString <> ""
        iSplit2 = iSplit2 & iLeft & Mid(iString, 1, iLong) & iRight
        iString = Mid(iString, iLong + 1)
    Wend
End Function

sstring = iSplit2("StringaSplitear", "String Primera ", " String Izquierda ", " String Derecha", 4)

String Primera Stri String Derecha String Izquierda ngaS String Derecha String Izquierda plit String Derecha String Izquierda ear String Derecha