
Sub Sample()
Dim str As String, obj As Object, var As Variant
MsgBox TypeName(str) 'Stringを表示します
MsgBox TypeName(obj) 'Nothingを表示します
MsgBox TypeName(var) 'Emptyを表示します
Set obj = CreateObject("Excel.Application")
var = Null
MsgBox TypeName(obj) 'Applicationを表示します
MsgBox TypeName(var) 'Nullを表示します
Set obj = Nothing
End Sub