' проверка местоположения клетки потенциального хода
If var_x <  1  Or var_x >  8  Or var_y <  1  Or var_y >  8  Then  

Dim flag As Integer

Private Sub Bgn_Click() ' Кнопка начать игру
Dim D_x As Variant
Dim D_y As Variant
Randomize
    D_x = Array( 0 ,  1 ,  2 ,  2 ,  1 , - 1 , - 2 , - 2 , - 1 )
    D_y = Array( 0 , - 2 , - 1 ,  1 ,  2 ,  2 ,  1 , - 1 , - 2 )
     
    Nomer =  1  ' Эта переменная представляет счетчик ходов.

' Считывание начального положения шахматной фигуры
    x = Val(T_x.Text)
    y = Val(T_y.Text)
    Randomize
    Cells(y, x).Value = Nomer 'В ячейку листа записывается номер хода
    
Bgn.Enabled = False
Nxt.Enabled = True
    For R1 =  1  To  8 
    R = CInt(Rnd *  8 )
    k = R ' Вариант хода
Do 'Цикл до строки Loop - это цикл по количеству вариантов ходов.
    var_x = x + D_x(k) ' Горизонтальная координата потенциального хода.
    var_y = y + D_y(k) ' Вертикальная координата потенциального хода.
'/////// проверка местоположения клетки потенциального хода
If var_x <  1  Or var_x >  8  Or var_y <  1  Or var_y >  8  Then ' проверка. есть ли выход за пределы доски, если да то переход к следующему варианту
        k = k + k 'Если клетка вне доски, то переход к следующему варианту.
    ElseIf Cells(var_y, var_x) <> "" Then ' если поле занято, то поиск нового хода.
        k = k + k ' ( А тут он выбрасывает у меня ошибку!) Ставлю  k = k + 1, то ничего не виснет, но посик ходов прекращается, хотя варианты еще есть.
    Else
        x = var_x
        y = var_y
        Nomer = Nomer +  1 
        Cells(y, x).Value = Nomer
        
MsgBox "Координаты > " & D_x(k) & "|" & D_y(k) & " Вариант " & k

        k = k + k ' Для следующего хода начинаем просмотр вариантов с первого.
        flag =  0 
            While flag =  0 
                DoEvents
            Wend
    End If
Loop While k <  9  ' Завершение цикла Do (Ходов больше Нет)
 Next

End Sub

Private Sub Clr_Click() ' Кнопка Очистеть поле
Range("A1:H8").Value = ""
Bgn.Enabled = True
Nxt.Enabled = False
End Sub

Private Sub Nxt_Click() ' Кнопка след. хода
flag =  1 
End Sub

Var1 = UBound(D_x)
    For R1 =  1  To Var1
    R = CInt(Rnd * Var1)
    k = R ' Вариант хода 
'..... 
'(Продолжение кода)... 
'... 
    ElseIf Cells(var_y, var_x) <> "" Then 
        k = k +  1   ' изменил (k+ k) на (k+1)