Makro Finde Werte >0

Sub FindeDaten()
'Wert = >0  ' geht nicht :-(
'Wert = ">0"  ' geht nicht :-(
With Worksheets("Datenblatt").Range("D5:D500")
Set c = .Find(Wert, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 34
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With
End Sub

Wie muß ich Wert angeben so das alles Zellen >0 gefunden werden?
Gruß Sonnenpeter