Macro Buscar no funciona con fechas

Hola que tal,
Mi pregunta es, ¿por qué mi macro buscar no busca fechas?
Con texto y números si me funciona, pero por ejemplo 15.07.2009 no lo encuentra y así lo tengo escrito en una de las celdas.
Gracias de antemano por tu atención
Aquí esta lo más importante del código, yo lo escribí, pero la verdad no tengo mucho conocimiento en esto de programar.
Dim celdaOrigen As Variant
Set hojaDestino = Sheets("Vordruck")
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
    strFind = InputBox("Bitte Suchbegriff eingeben:", Application.UserName, strSuch)
    If strFind = "" Then Exit Sub
    For Each wks In Worksheets
    Application.ScreenUpdating = False
        Set rng = wks.Cells.Find(strFind, lookat:=xlPart, LookIn:=xlFormulas)
        If Not rng Is Nothing Then
        strAddress = rng.Address
Do
' Aqui vienen otras instrucciones de copy / Paste
Set rng = Cells.FindNext(After:=ActiveCell)
            If rng.Address = strAddress Then Exit Do
        Loop
        End If
    Next wks
    strSuch = strFind
fin:
End Sub