Ronbo,

This might give you an idea of accomplishing what you want.

Dave

Sub Parse()

Dim tmpName2 As String
tmpName2 = "12345678901213141516171819292122"
tmpName2 = Left(tmpName2, Len(tmpName2) - 11)
tmpName2 = Left(tmpName2, 8) & " " & Mid(tmpName2, 9, 2) & " " &
Mid(tmpName2, 11, 3) & " " & Mid(tmpName2, 14, 6) & " " &
Right(tmpName2, 2)
MsgBox (tmpName2)

End Sub