Test code:
Option Explicit
Sub SearchTest()
Dim Search As Range
Dim MyRange As Range
Set MyRange = Worksheets(1).Range("A1:A8")
Set Search = MyRange.Find(What:="0", LookIn:=xlValues)
Debug.Print Search.Row
Set Search = MyRange.Find(What:="00", LookIn:=xlValues)...