[sami2015]

For r = 0 To BlackList.Count - 1
For i = Result.Count - 1 To 0 Step -1
If Result( i ).Contains(BlackList( r )) Then
Result.RemoveAt( i )
End If
Next
Next