Insert Spaces

[Ronbo]

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.

 

[Bob Phillips]

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)