' Creating variables in a forloop
Dim i = 0
For i = 1 to  ^8. Top of mind^.Responses.Count-1
  Dim var5 As CalcVar
  var5.Read("Ex5")
  var5.Shortcut = "Ex5 - " + ^8. Top of mind^.Responses[i].Caption
  var5.Type = 2
  var5.Clear()
  Dim var5_1 As CalcVarResponse
  var5_1.Caption = ^8. Top of mind^.Responses[i].Caption
  var5_1.Script = "^8. Top of mind^.Value Has " + i
  var5.Add(var5_1)
  Dim Res5 = var5.Save()
  If Not(Res5.Success) Then 
  Debug.Trace("Cannot create variable " + Res5.ErrorMessage +" - "+^8. Top of mind^.Responses[i].Caption)
  Endif
Next i