用户表单选择一个选项按钮和输入关键字，系统根据此返回相应的搜索结果

我有一个带有八个选项按钮的用户窗体，它们代表七个可能项目的搜索条件。用户选择一个条件来搜索结果，然后出现一个输入框，要求用户输入关键字。我的工作表是七个可能项目的名称。但是，并非每个工作表都具有所有八个搜索条件选项（实际上，没有一个具有所有八个条件）。

这些选项按钮代表多个工作表中的列标题。如何编写代码以从InputBox中获取选定的选项按钮（例如OptionButton1）和关键字（例如Keyword），并从工作表（名称为keword的工作表）中返回结果。关键字必须是可能的项目之一，否则我需要给MsgBox一个错误以使它们再次尝试。

我在想：

Dim Keyword as variant
Keyword = InputBox("please enter a keyword")
If Keyword = Item1 or Item2 or ...Item 3 Then
Worksheet(Keyword).activate
If OptionButton1.Value = True and OptionButton1.Value = 'any column headings in the selected worksheet' Then
'return the entire row results of items with that selected option button column heading and the keyword'
ElseIf OptionButton2.Value = True and .... Then
'do the same thing
ElseIf OptionButton3.Value...
End If
Else
MsgBox ("Please enter a valid keyword")
End If