Excel Wert Abfrage

Hallo,

ich möchte über ein Makro eine Abfrage machen leider komme ich nicht zum gewünschten Ergebnis.
Ich habe 2 Worksheets ( Stammdaten;Eingabe )

ich möchte in "Eingabe" B2 einen Wert eingeben welcher dann über einen Button geprüft wird ob dieser in
Stammdaten in Spalte A vorhanden ist oder nicht.

Dim Wks1 As Worksheet, Wks2 As Worksheet, Found As Object

Set Wks1 = Sheets("Eingabe")
Set Wks2 = Sheets("Stammdaten")

If Not IsEmpty(Wks1.Cells(2, 6)) Then

Set Found = Wks2.Columns(1).Find(Wks1.Cells(2, 6), LookIn:=xlValues, LookAt:=xlWhole)

If Found Is Nothing Then

MsgBox "Wert nicht gefunden!"
Else
MsgBox "Wert in Zelle "
End If
End If

Er springt mir immer in den Then Zweig obwohl es den Wert gibt.
Unterscheidet VBA generell auch Groß und Kleinschreibung?

MfG

Florian86