主题：请教：一个单元格的内容是否在另一列中出现过

表A、表B结构相同，[第十列]是日期类型

Dim Mark As date

mark=                                   '表A第一行、第十列单元格内容赋值给变量mark
If Mark  Then                  '判断mark的值在表B的第十列是否出现过
    Output.Show( "出现过")
Else
    Output.Show( "未出现过")
End If

问题：带注释的两行语句怎么写。