主题：[求助]求弹出窗口代码

Dim Val As String = RibbonTabs("工作中心").Groups("办理手续专区").Items("查找").Items("内容").Text

Dim Index As Integer

With CurrentTable

    Index = .FindRow(.Cols(.ColSel).Name & " = '" & Val & "'", .Position + 1,True) 

    If Index >= 0 Then

       .Position = Index

    End If

End With

菜单里的超找代码如上，请问高手如何加上 查不到就弹出窗口提示 “没有找到”