Sub Sample() Dim a As Variant MsgBox IsNull(a) 'Falseを表示します a = "" MsgBox IsNull(a) 'Falseを表示します a = Null MsgBox IsNull(a) 'Trueを表示します End Sub