如何使VBA命令按钮搜索提供的输入并更改状态(如果存在)？

Private Sub CommandButton1_Click()
    Dim searchValue As String
    Dim foundRange As Range
    
    ' 获取输入值
    searchValue = TextBox1.Value
    
    ' 在指定范围内搜索输入值
    Set foundRange = Range("A1:A10").Find(searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到匹配项，则更改状态
    If Not foundRange Is Nothing Then
        foundRange.Offset(0, 1).Value = "已找到"
    Else
        MsgBox "未找到匹配项"
    End If
End Sub