Debug CreateObject Tests

Test 1: CreateObject('WScript.Shell')

objShell = [NativeObject:20302]

IsNull(objShell) = False

IsObject(objShell) = True

TypeName(objShell) = Object

Err.Number = 0, Err.Description =

Test 2: Call GetEnv

PATH length = 60