找不到VBA查找值

Dim rng As Range
Set rng = Range("A1:A10")
Dim result As Range
Set result = rng.Find("apple")
If Not result Is Nothing Then
    MsgBox "找到了，地址是：" & result.Address
Else
    MsgBox "未找到"
End If

Dim result As Variant
result = Application.WorksheetFunction.VLookup("apple", Range("A1:B10"), 2, False)
If Not IsError(result) Then
    MsgBox "找到了，值是：" & result
Else
    MsgBox "未找到"
End If

Function FindValue(ByVal searchValue As String, ByVal searchRange As Range) As String
    Dim cell As Range
    For Each cell In searchRange
        If cell.Value = searchValue Then
            FindValue = cell.Address
            Exit Function
        End If
    Next cell
    FindValue = "未找到"
End Function

Sub Test()
    Dim rng As Range
    Set rng = Range("A1:A10")
    Dim result As String
    result = FindValue("apple", rng)
    If result <> "未找到" Then
        MsgBox "找到了，地址是：" & result
    Else
        MsgBox "未找到"
    End If
End Sub