Nothing的使用，急等。

[williamtom]

以下一段程序：
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim rng1 As Excel.Range

Set xlsApp = New Excel.Application
Set xlsBook = xlsApp.Workbooks.Open("test.xls")
Set xlsSheetTemp = xlsBookTemp.Sheets(1)

Set rng1 = xlsSheet.Cells.Find(What:="VB编程技巧", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)

现在我想判断是返回了Range对象，还是Nothing对象，该怎么判断？

[射天狼]

If rng1 Is Nothing Then
MsgBox "返回NOTHING", vbInformation
Else
MsgBox "正确!", vbInformation
End If

[LiaoCheng]

同上

[drillmaster]

If Obj Is Nothing Then dosomething