TypeName Function

From Office VBScript