Удаление определенного слова из строки с разделителями

По материалам: https://www.cyberforum.ru/ms-access/thread3066195.html

Private Sub Test_002()
Dim sVal$, sTemp$, sValToDel$, sReturn$
Dim iVal%, vArr
Const csSeparator$ = ";"     'Разделитель частей
Const csSeparatorPlus$ = " " 'Разделитель частей + пробел
 
    sVal = "Токарная; Термическая; Пескоструйная" 'Исходyjt значение строки
    sValToDel = "Термическая"
    
    vArr = Split(sVal & "", csSeparator)

    For iVal = 0 To UBound(vArr)
        sTemp = Trim(vArr(iVal))
        If Not sTemp = sValToDel Then
            sReturn = sReturn & csSeparator & csSeparatorPlus & sTemp
        End If
    Next iVal
    
    If Len(sReturn) > 2 Then sReturn = Mid(sReturn, Len(csSeparator & csSeparatorPlus) + 1)
    
    Debug.Print "Строка до    : " & sVal
    Debug.Print "Исключение   : " & sValToDel
    Debug.Print "Строка после : " & sReturn
End Sub

Вернёт:

Строка до    : Токарная;Термическая;Пескоструйная
Исключение   : Термическая
Строка после : Токарная; Пескоструйная