sort of random number question

[Iain17]

Try,

Do Until Cint(Text1(iCounter).Text) <> 0 
  If Cint(Text1(iCounter).Text) > 0 Then 
  Text1(iCounter).Text = "+" & Int((23 * Rnd) - 10) 
Loop