Функция Split
Split(Expression,[Delimiter],[Limit],[Compare] ) 
Новая функция, которая появилась в Visual Basic 6.0
Функция Split используется для расщепления строки на субстроки с использованием разделителя субстрок

Возвращаемое значение 
Функция Split(Expression) возвращает одномерный массив с типом данных Variant(String), содержащий в качестве элементов найденные субстроки

Параметры 
Expression
Обязательный аргумент - строка, которую нужно расщепить. Если аргумент содержит нулевую строку(""), то возвращается пустой массив, т.е. массив без элементов и данных 
Delimiter
Необязательный аргумент - символы типа String, которые используются в качестве разделителя строки. Если аргумент опущен, то по умолчанию используется символ пробела(" "). Если же аргумент содержит нулевую строку(""), то возвращается одноэлементный массив, содержащее целую строку 
Limit
Необязательный аргумент, содержащий число возвращаемых субстрок. Если аргумент опущен или равен -1, то обрабатывается вся строка 
Compare
Необязательный аргумент - числовая константа, определяющая вид сравнения: 
vbUseCompareOption=-1
Используется по умолчанию метод сравнения, заданный инструкцией Option Compare 
vbBinaryCompare=0
Двоичный метод сравнения. Буквы разных регистров считаются разными 
vbTextCompare=1
Текстовый метод сравнения. Сравнение без учета регистров 
vbDatabaseCompare=2
Только для Microsoft Access. Сравнение с использованием информации базы данных 
Пример 

' Считаем число вхождений слова "кол" в строке
Dim stroka As String ' строчка для подсчета
Dim retval ' возвращаемое значение
stroka = "Шит колпак не по-колпаковски. Ливерная колбаса."
retval = Split(stroka, "кол")
MsgBox "'кол' встречается в строке'" & stroka _
& "' " & UBound(retval) & " раза"