+    double tmp;
+    WCHAR trueW[] = {'T','r','u','e','\0'};
+    WCHAR falseW[] = {'F','a','l','s','e','\0'};
+
+    TRACE("%s\n", debugstr_variant(arg));
+
+    assert(args_cnt == 1);
+
+    switch(V_VT(arg)) {
+    case VT_I2:
+        tmp = V_I2(arg);
+        break;
+    case VT_I4:
+        tmp = V_I4(arg);
+        break;

+    case VT_R4:
+        tmp = V_R4(arg);
+        break;
+    case VT_R8:
+        tmp = V_R8(arg);
+        break;
+    default:
+        ERR("Not a numeric vaule: %s\n", debugstr_variant(arg));
+        return E_FAIL;
+    }
+
+    if (tmp < 0.0 || tmp > 0.0)
+        str = SysAllocString(trueW);
+    else
+        str = SysAllocString(falseW);
+
+
+    return return_bstr(res, str);

 }
 
 static HRESULT Global_CByte(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
diff --git a/dlls/vbscript/tests/api.vbs b/dlls/vbscript/tests/api.vbs
index 6bd4065..9b25e87 100644
--- a/dlls/vbscript/tests/api.vbs
+++ b/dlls/vbscript/tests/api.vbs
@@ -442,4 +442,9 @@ Call ok(CInt(36.50) = 36, "CInt(36.50) = " & CInt(36.50))
 Call ok(CInt(36.75) = 37, "CInt(36.75) = " & CInt(36.75))
 Call ok(CInt(300) = 300, "CInt(300) = " & CInt(300))
 Call ok(CInt(-300) = -300, "CInt(-300) = " & CInt(-300))
+
+Call ok(CBool(5) = "True", "CBool(5) = " & CBool(5))
+Call ok(CBool(0) = "False", "CBool(0) = " & CBool(0))
+Call ok(CBool(-5) = "True", "CBool(-5) = " & CBool(-5))

...and that's why getVT(...) test would be nice here.

Thanks,
Jacek