Excel VBA - Typen unverträglichkeit

Sub Pruefung_Sys2Sys()

Dim Bereich As Range
Dim Kriterium1 As String
Dim Kriterium2 As String
Dim Kriterium3 As String
Dim Kriterium4 As String

Set Bereich = Range("C5:C8")  
Kriterium1 = "*B_Sys2Sys*"  
Kriterium2 = "*AZ_R*"  
Kriterium3 = "*ROT_Sys*"  
Kriterium4 = "*Global_Sys2Sys*"  

If Not Bereich Like Kriterium1 Then
    MsgBox "BCS Sys2Sys sind nicht vorhanden. Bitte prüfen!"  
End If

If Not Bereich Like Kriterium2 Then
    MsgBox "RCS Sys2Sys / Auszahlungen sind nicht vorhanden. Bitte prüfen!"  
End If

If Not Bereich Like Kriterium3 Then
    MsgBox "SAP rot Sys2Sys sind nicht vorhanden. Bitte prüfen!"  
End If

If Not Bereich Like Kriterium4 Then
    MsgBox "SAP global Sys2Sys sind nicht vorhanden. Bitte prüfen!"  
End If


End Sub