write a program to read a value as user input and display its subdatatype

'3) write a program to read a value as user input and display its subdatatype

Dim x
x = InputBox("Enter a value","Input Reader")

WScript.Echo TypeName(x) 
' the above statement will print the subdata type of x : String