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.