Sub Sample() Dim a As Variant a = 123 MsgBox IsArray(a) 'Falseを表示します a = Array(1, 2, 3) MsgBox IsArray(a) 'Trueを表示します End Sub