How to collect first letters of the few words in excel ?

[veer-india]

Sorry, but this is slightly like this answer http://www.mrexcel.com/forum/excel-questions/656277-extracting-first-letter-each-word-cell.html ,, I am trying to find a vba script through which i can extract first letters of the first 5-6 words in excel ? How i can achieve this ?
for example "i am a big fat cow with very big body." it is in a cell, I want extract only first 5 letters or first 6 letters of each word which should be iaabfc - for 6 letters. Any correct formula ? only the first 5 or 6. Not the whole line. Thanks in advance.

 

[Rick Rothstein]

Here is a UDF (user defined function) that will return what you want, just pass it the text to parse and the number of "first letters" you want. So, if your text was in cell A1 and you want the first 6 "first letters" from it, you would use this formula in a cell...

=FirstLetters(A1,6)

Here is the function's code...

Function FirstLetters(S As String, N As Long) As String
  Dim X As Long, Words() As String
  Words = Split(S)
  For X = 0 To N - 1
    FirstLetters = FirstLetters & Left(Words(X), 1)
  Next
End Function

 

[veer-india]

Thanks that worked very well.