Hi Ed,

as this group is about programming,
a basic example about string handling.

You may to convert it into a function, if you like.

Sub Test5bb()
Dim sTmp As String
Dim sLft As String ' left part
Dim sRgt As String ' right part
sTmp = "abcdefghijklmno"
If Mid(sTmp, Len(sTmp) - 2, 1) < " " Then
sLft = Left(sTmp, Len(sTmp) - 2)
sRgt = Right(sTmp, 2)
sTmp = sLft & " " & sRgt
End If
MsgBox sTmp
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"