help with range.find method not finding search term

I am trying to speed up the following function using the .find method rather than the original DO loop.
I can't figure out why the str is not found by the .find method
FYI, I have it set up to run both methods of finding the row number to determine if the new method always returns the same as the original method before I delete the original DO loop.

Public Function GetRowByID(str As String) As Long
    Dim row As Integer
    Dim newrow As Integer
    Dim r As Range
    Dim r2 As Range
    Dim rng As Range
    row = 1
    
    ' original code
    ' returns the row number for found string or
    ' row number of first row where string =""
    With Sheets(snOBJECTDATA)
        Set r = .Range(OBJECTSTORE_RANGENAME)
        Do Until r(row, COLID) = str Or r(row, COLID) = ""
            If str = r(row, COLID) Then Exit Do
            row = row + 1
        Loop
    End With
    
    ' new code to find the row number faster
    newrow = 0
    Set rng = Worksheets(snOBJECTDATA).Range(OBJECTSTORE_RANGENAME).Columns(COLID)
    Set r2 = rng.Find(What:=str, Lookin:=xlValues, LookAt:=xlWhole)
    If Not r2 Is Nothing Then newrow = r2.row

    'check if new method result matches original method
    If newrow <> row Then
        MsgBox ("newrow:" & newrow & "  row:" & row)
    End If

GetRowByID = row
end function

Thanks in advance.

Thanks Bernie,
I was wondering if you threw a couple of timer statements in there if you find that the .find method is any quicker than my original routine. this routine is deep in some loops so I am really interested in getting every bit of performance as possible. I know that the STR will match case with the cell value, so I removed the UCASE. Based on another site, I have tried assigning the range to variant (array) and then looping through the variant array but had the same performance. Thanks for verifying the .find method works for you. Any possibility you might have an answer for my other two recent posts that have no responses?

Thanks Bernie,
I found my issue with my find method. the following single line always returns r2.row=1 even though I have ~10,000 rows of data and the first row with no data in column A is 9,943.
Do you know the proper syntax to find the first row w/o data in the range? My range is a single column equivalent to "A1:A10000"

Set r2 = rng.Find(What:="", Lookin:=xlValues, LookAt:=xlWhole)

For reference the second half of routine:

      Set rng = Sheets(snOBJECTDATA).Range(OBJECTSTORE_RANGENAME)
        Set r2 = rng.Find(What:=str, Lookin:=xlValues, LookAt:=xlWhole)
        If Not r2 Is Nothing Then
            newrow = r2.row
        Else
            Set r2 = rng.Find(What:="", Lookin:=xlValues, LookAt:=xlWhole)    ' <-- always returns r2.row=1
            If Not r2 Is Nothing Then
                newrow = r2.row
            Else
                MsgBox ("xxx")
            End If
        End If
    
        If newrow <> row Then
            MsgBox ("newrow:" & newrow & "  row:" & row)
        End If

The cells were set using code:

range(row,col)=""

Which approach would I use?