Через сколько дней ученик будет знать N английских слов? - VB

Private Sub Command1_Click()
    Dim N As Integer, K As Integer, X As Integer, i As Integer
    X = 20  ' Ученик в первый день выучил Х английских слов
    K = 10  ' В каждый следующий день он выучивал на К слов больше, чем в предыдущий
    N = 100 ' Через сколько дней ученик будет знать N английских слов?
    i = 1   ' первый день не считаем
    Do Until X >= N
       i = i + 1
       X = X + K
       Print X, i
    Loop
    MsgBox "Через " & i & " дней ученик будет знать " & Y & " английских слов."
End Sub