完成VBA查找功能以搜索两个搜索变量中的一个，然后选择出现的第一个变量

Sub SearchVariables()
    Dim variable1 As String
    Dim variable2 As String
    Dim searchStr As String
    
    ' 输入两个搜索变量
    variable1 = InputBox("请输入第一个变量：")
    variable2 = InputBox("请输入第二个变量：")
    
    ' 输入要搜索的字符串
    searchStr = InputBox("请输入要搜索的字符串：")
    
    ' 使用InStr函数查找变量1
    If InStr(1, searchStr, variable1, vbTextCompare) > 0 Then
        MsgBox "找到了变量1：" & variable1
        Exit Sub
    End If
    
    ' 使用InStr函数查找变量2
    If InStr(1, searchStr, variable2, vbTextCompare) > 0 Then
        MsgBox "找到了变量2：" & variable2
        Exit Sub
    End If
    
    ' 如果没有找到任何变量
    MsgBox "未找到任何变量。"
End Sub