MsgBox TypeName("abc") ' String MsgBox TypeName(1) ' Integer MsgBox TypeName(1.2) ' Double MsgBox TypeName(Now) ' Date MsgBox TypeName(#10/19/62#) ' Date MsgBox TypeName(x) ' Empty ary = Split("a,b,c", ",") MsgBox TypeName(ary) ' Variant()