Dim Liste As String() = {"Key1", "Key2"}
Dim Key As String
 
For Each Key In SubKeyNames
  If System.Array.IndexOf(Liste, Key) = -1 Then
    'Key ist nicht in der Liste
    MsgBox(Key)
  Else
    'Key ist in der Liste
  End If
Next