Heres 1 way


Code:
--------------------

Sub ManipulateText()
Dim AA As String
Dim BB As String
Dim CC As String
Dim iPos As Integer


AA = "They are capable"
BB = "think they"

iPos = InStr(1, AA, " ")
CC = Left(AA, iPos) & BB & Mid(AA, iPos)
MsgBox CC
End Sub

--------------------


--
mudraker

If my reply has assisted or failed to assist you I welcome your
Feedback.

www.thecodecage.com
------------------------------------------------------------------------
mudraker's Profile: http://www.thecodecage.com/forumz/member.php?userid=18
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=90317