Остановить цикл if - VB

Формулировка задачи:

как остановить цикл иф, чтобы рандомайз выполнялся определенное кол-во раз?

If Int((Rnd * z) - z) = 1 Then
        pos(i, j) = 9 ' в рабочую матрицу для поиска пути
        Form1.Line (i * cz, j * cz)-(i * cz + cz, j * cz + cz), Label3.BackColor, BF 'тут рисует препятствие, тут мне все ясно
       
    End If

Решение задачи: «Остановить цикл if»

textual
                            Листинг программы 
                        

                            For z = 1 To Val(Text1.Text) ' тут цикл для ограничения, возможно не правильно
 For i = 0 To Across - 1 ' работа с координатами
    For j = 0 To Up - 1 'работа с координатами
           pos(i, j) = 9' в рабочую матрицу для поиска пути
           Form1.Line (i * cz, j * cz)-(i * cz + cz, j * cz + cz), Label3.BackColor, BF 'тут рисует препятствие, тут мне все ясно
   
    Next j
Next i
 Next z
                        