' Creating responses in a forloop
Dim var4 As CalcVar
var4.Read("Ex4")
var4.Shortcut = "Ex4"
var4.Type = 2
var4.Clear()

Dim i = 0
For i = 1 to  ^8. Top of mind^.Responses.Count-1 ' subtract 1 to ignore 'Not asked'
  Dim var4_1 As CalcVarResponse
  var4_1.Caption = ^8. Top of mind^.Responses[i].Caption
  var4_1.Script = "^8. Top of mind^.Value Has " + i + " AND ^Department^.Value > 0"
  var4.Add(var4_1)
Next i

var4.Save()