Проверить корректность решения задач - VB

Private Sub Command1_Click()
Dim L, B, S, N As Integer
L = Val(InputBox("Введите начальное число"))
B = Val(InputBox("Введите конечное число"))
N = 0: S = 1
 
For i = L To B
 
If i > 7 And i < 20 Then
S = S * i
N = N + 1
 
End If
Next i
 
If N > 0 Then
Text1.Text = "Количество чисел в промежутке от 7 до 20 = " + Str(N) & vbCrLf & "Произведение этих чисел = " + Str(S)
 
Else
Text1.Text = "Нет чисел, входящих в промежуток от 7 до 20"
 
End If
End Sub