VBA IF OR Problem

Sub Einlagern()

Dim k1 As String
Dim k2 As String
Dim k3 As String

k1 = "kuehllager1"  
k2 = "kuehllager2"  
k3 = "kuehllager3"  


'Kühllager prüfen prüfen  

With Sheets("Eingabe")  

           If .Range("F3") <> k1 Or .Range("F3") <> k2 Or .Range("F3") <> k3 Then  
   
                   MsgBox "Kühllager prüfen", vbCritical  

                   Exit Sub

           End If

End With

end sub