参考代码

Dim str1 As String = "洗衣机,手机,电视机"
Dim str2 As String = "海尔洗衣机,iphone手机,华为手机,vivo手机,松下电视机,测试"
For Each s2 As String In str2.split(",")
    Dim flag As Boolean = False
    For Each s1 As String In str1.split(",")
        If s2.contains(s1)  Then
            flag = True
            Exit For
        End If
    Next
    If flag Then
        msgbox(s2 & "符合")
    Else
        msgbox(s2 & "不符合")
    End If
Next

 类别关键字，可以单独存放在一个表里面。

做一个关键字匹配表格吧。

【关键字】  【归类】

电脑            台式机

一体机         台式机

直接查这个表得到归类。