Developing.ru

Код: Выделить всё

Public Function FL(s as string) as string
     Dim i as long
     Dim vl() as string
     FL = vbnullstring
     vl = split(s," ")
     for i = LBound(vl) to UBound(vl)
          FL = FL & Left$(vl(i),1)
     next i
end Function