Листинг 1. Реализация комбинации функций Split, Filter и Join традиционными средствами Basic

Public Function Test2$(Source$, Delim1$, Search$, vbComp%, Delim2$)
    ' Вариант 2 
    ' Используя традиционные (известные еще 15 лет назад) функции
   Dim Word$, Result$, i%, i1%, Source1$
   i1% = 1
   Source1$ = Source$ + Delim1$ 
   Do
       i% = InStr(i1%, Source$, Delim1$)
       If i% = 0 Then Exit 
       Do 
          ' выделяем очередное поле
          Word$ = Mid$(Source1$, i1, i% - i1%)
          If, InStr(1, Word$, Search$, vbСоmp%)  > О Then 
              ' поле отвечает критерию поиска
              Result$ = Result$ + Delim2$ + Word$
         End If
         i1% = i% + Len(Delim1$) 
      Loop
      If Result$ > "" Then
         Test2$ = Mid$(Result$, Len(Delim2$) + 1) 
      Else: Test2$ = Result$ 
      End If 
End Function