Строковые переменные в Visual Basic

[Zemun]

Люди!!!Помогоите плиз решить в визуал бэсике задачу!!!
Нужно составить прогу,которая будет выводить абревеатуру введенных слов

Например: Путин Владимир Владимирович
Результат: ПВВ

[Aent]

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

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

[Zemun]

Чувак спасибо тебе огромное очень выручил