VBA UserForm从文本框中查找第n个值

Private Sub btnFind_Click()
    Dim searchValue As String
    Dim searchRange As Range
    Dim counter As Integer
    Dim result As String
    
    ' 获取要查找的值
    searchValue = txtSearch.Value
    
    ' 设置要查找的范围，这里以Sheet1的A列为例
    Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A:A")
    
    ' 初始化计数器和结果
    counter = 0
    result = ""
    
    ' 遍历范围进行查找
    For Each cell In searchRange
        If cell.Value = searchValue Then
            counter = counter + 1
            If counter = Val(txtN.Value) Then
                result = "第" & txtN.Value & "个值的位置是：" & cell.Address
                Exit For
            End If
        End If
    Next cell
    
    ' 显示结果
    If result <> "" Then
        MsgBox result
    Else
        MsgBox "未找到第" & txtN.Value & "个值。"
    End If
End Sub