MsgBox "vbEmpty: " & vbEmpty & " " & VarType(not_assign) MsgBox "vbNull: " & vbNull & " " & VarType(Null) MsgBox "vbInteger: " & vbInteger & " " & VarType(1) MsgBox "vbLong: " & vbLong & " " & VarType(2147483647) MsgBox "vbDouble: " & vbDo…