[VBA程序]：如何判断选择集为空集？

weilufeng

本人用VBA写了一段小程序，本人才学二次开发，想判断一下一些选择集是否为空？开始写的语句如下：
    if sset=nothing then
        msgbox "重置完成"
    elseif sset sset<>nothing then
        sset.delete
    endif
试运行时出错，显然是sset=nothing出错了，但我不知道这语句应该如何写？敬请各位大侠多多指教，在下将不胜感激！

InterCAD

If sset Is Nothing Then
        MsgBox "重置完成"
    'ElseIf Not sset Is Nothing Then '此句无意义
    Else
        sset.Delete
    End If