Hi,
I went for a similar approach to that used by Jacob but opted for a function, this lets you pass the seperator and jump values as arguments and means that you can use it as a function on the worksheet.
Call with : =SPChar(A3,$A$1,$A$2)
where A1 houses the seperator and A2 the jump and the values start in A3.
Sub Main()
MsgBox SPChar("Peter Herson", "#", 3)
End Sub
Function SPChar(strIn As String, strSep As String, lJump As Long) As String
Dim lCnt As Long, lRem As Long
If Len(strIn) > lJump Then
lRem = Len(strIn) Mod lJump
For lCnt = 1 To (Len(strIn) - lRem) / lJump
SPChar = SPChar & Mid(strIn, 1 + ((lCnt - 1) * lJump), lJump) & strSep
Next lCnt
SPChar = Left(SPChar, Len(SPChar) - 1)
If Not lRem = 0 Then
SPChar = SPChar & strSep & Mid(strIn, 1 + ((lCnt - 1) * lJump), lJump)
End If
Else
SPChar = strIn
End If
End Function
HTH