Более короткое и менее подверженное ошибкам решение будет:
Dim arr
arr = Split("Q1 Q2 Q3 Q4") : ubd = UBound(arr)
' Implied separator is " " aka 040 octal aka 32 Dec aka 020 Hex.
Если ваши данные могут содержать пробелы:
arr = Split("Le Sage,ne pleure,ni les vivants, ni les morts", ",")
ubd = UBound(arr)
' arr(2), for instance, now contains "ni les vivants"
Предупреждение. Никогда не выбирайте разделитель, который может встречаться в ваших «атомарных» строках данных, иначе функция разделится на этот разделитель в середине одного фрагмента данных.