Dim IsInBlack, IsInWhite As Boolean 'Init = false
 
        For Each blackitem As String In blacklist
            If text.Contains(blackitem) Then IsInBlack = True : Exit For
        Next
 
 
        For Each whiteitem As String In whitelist
            If text.Contains(whiteitem) Then IsInWhite = True : Exit For
        Next
 
        If Not IsInBlack AndAlso IsInWhite Then
            '..............
        End If