Посчитать количество элементов массива одной тематики - VB

Формулировка задачи:

Господа, прошу помочь написать цикл, который посчитает кол-во элементов массива определенной тематики и запишет это число в переменную Interact. В vbs я новичок, поэтому буду изъясняться на дилетантском языке. Есть массив, каждый элемент массива состоит из трех слов одной тематики, например:0 - Car;Bike;Motorcycle

'Транспорт

1 - Cup;Spoon;Knife

'Посуда

2 - Table;Chair;Box

'Мебель

Меня интересует тематика Транспорт, слова в элементе могут стоять в разном порядке, например: Car;Bike;Motorcycle Bike;Bike;Car Motorcycle;Bike;Bike Если в элементе есть хоть одно из трех слов Car, Bike, Motorcycle, то Interact будет равен 1. Приведу еще один пример массива где Interact будет равен 2 (0 и 2 элемент массива имеют тематику Транспорт):0 - Car;Car;Motorcycle1 - Cup;Spoon;Spoon2 - Motorcycle;Car;Bike3 - Box;Chair;Box

Решение задачи: «Посчитать количество элементов массива одной тематики»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
    Dim arr, i, a, b, c, Interact
    a = "Car": b = "Bike": c = "Car"
    arr = Split("Car;Car;Motorcycle  Cup;Spoon;Spoon Motorcycle;Car;Bike Box;Chair;Box")
    For i = 0 To UBound(arr)
        If InStr(1, arr(i), a, vbTextCompare) > 0 _
        Or InStr(1, arr(i), b, vbTextCompare) > 0 _
        Or InStr(1, arr(i), c, vbTextCompare) > 0 Then Interact = Interact + 1
    Next
    MsgBox Interact, 64, ""
End Sub