在vba中创建黑名单的最佳方法是什么？

Sub CreateBlacklist()
    Dim blacklist As Collection
    Set blacklist = New Collection
    
    ' 添加黑名单成员
    blacklist.Add "badword1"
    blacklist.Add "badword2"
    blacklist.Add "badword3"
    
    ' 验证值是否在黑名单中
    Dim valueToCheck As String
    valueToCheck = "badword1"
    
    Dim isBlacklisted As Boolean
    isBlacklisted = False
    
    Dim member As Variant
    For Each member In blacklist
        If StrComp(valueToCheck, member, vbTextCompare) = 0 Then
            isBlacklisted = True
            Exit For
        End If
    Next member
    
    If isBlacklisted Then
        MsgBox "该值存在于黑名单中！"
    Else
        MsgBox "该值不在黑名单中。"
    End If
End Sub