Hi, just incase you are trying to do this in VBA you may want to try
the following--'Find' doesn't get it done in the VBA editor(at least
not mine--Office 2003). The above examples work great as a worksheet
formulas.

Option Explicit
Sub conc_names()
Dim myVariable$, myCellValue$
myCellValue = Cells(1, 1)
myVariable = Left(myCellValue, 1) & Mid(myCellValue, InStr(1,
myCellValue, " ", 1) + 1, 1)
End Sub

HTH--Lonnie