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