' Create a numeric by script variable
Dim var1 As CalcVar
var1.Read("NumByScript")
var1.Shortcut = "7. Type" '**** Variable already exists
var1.Type = 1
var1.Script = "??i1. Gender??"
var1.Clear()
Dim Res1 = var1.Save()

If Not(Res1.Success) Then 
  Debug.Trace("Cannot create variable: " + Res1.ErrorMessage)
Endif

' Create a closed with X script
Dim var2 As CalcVar
var2.Read("ClosedByScript")
var2.Shortcut = "ClosedByScript"
var2.Type = 2
var2.Clear()

Dim var2_1 As CalcVarResponse
var2_1.Caption = "M"
var2_1.Script = "??i1. Gender?? Has 1"
var2.Add(var2_1)

Dim var2_2 As CalcVarResponse
var2_2.Caption = "F"
var2_2.Script = "??i1. Gender?? Has 2" 
var2.Add(var2_2)

Dim Res2 = var2.Save()
If Not(Res2.Success) Then 
  Debug.Trace("Cannot create variable: " + Res2.ErrorMessage)
Endif

' Create a closed with one single script
Dim var3 As CalcVar
var3.Read("ClosedBySingleScript")
var3.Shortcut = "ClosedBySingleScript"
var3.Type = 3
var3.Script = "??i1. Gendxr??" '**** Question in script does not exist
var3.Clear()

Dim var3_1 As CalcVarResponse
var3_1.Caption = "M"
var3.Add(var3_1)

Dim var3_2 As CalcVarResponse
var3_2.Caption = "F"
var3.Add(var3_2)

Dim Res3 = var3.Save()
If Not(Res3.Success) Then 
  Debug.Trace("Cannot create variable: " + Res3.ErrorMessage)
Endif

Dim errorCount = (1-Res1.Success.ToNumber()) + (1-Res2.Success.ToNumber()) + (1-Res3.Success.ToNumber())
Dim successCount = (Res1.Success.ToNumber()) + (Res2.Success.ToNumber()) + (Res3.Success.ToNumber())

Debug.Trace("FIN: ## (Vars FAILED = " + errorCount + ") ## (Vars SUCCESS = " + successCount + ") ##")