Insert Spaces

I need to know how to insert spaces at given positions in a string.
There are 27 characters (positions) and it would go as follows;

111223333334445566666666666

Changed to;
111 22 333333 444 55

Dim tmpName2 As String
tmpName2 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 11)

The first statements removes the last 11 characters and leaves
1112233333344455

What I need is the syntax to insert the spaces in the name at position 4, 7
14 and 18.

sVal = "111223333334445566666666666"
ary = Array(4, 7, 14, 18)

For i = LBound(ary) To UBound(ary)
sVal = Left(sVal, ary(i) - 1) & " " & Right(sVal, Len(sVal) - ary(i)
+ 1)
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Ronbo" <[email protected]> wrote in message
news:[email protected]...
> I need to know how to insert spaces at given positions in a string.
> There are 27 characters (positions) and it would go as follows;
>
> 111223333334445566666666666
>
> Changed to;
> 111 22 333333 444 55
>
> Dim tmpName2 As String
> tmpName2 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 11)
>
> The first statements removes the last 11 characters and leaves
> 1112233333344455
>
> What I need is the syntax to insert the spaces in the name at position 4,
7
> 14 and 18.
>
>