[VB] Построение циклических алгоритмов

[Raikerian]

Есть две задачи. С первой вроде разобрался, просьба проверить код, а вот со второй никак:
Задача 1.
Дана последовательность из М (М = 10) чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение таких чисел.

Private Sub CommandButton1_Click()
Dim k, M, P, n, j As Integer
P = 1
j = 0
M = Val(Text1.Text)
For k = 1 To M Step 1
n = Val(InputBox("Введите  число"))
If (n > 7) And (n < 20) Then
P = P * n
j = j + 1
End If
Next k
If j > 0 Then
Text2.Text = P
Text3.Text = j
Else
P = 0
Text2.Text = P
Text3.Text = "нет таких чисел"
End If
End Sub

Задача 2. Дана последовательность из M чисел. Найти наименьшее из всех чисел, больших 10, и его порядковый номер.
Смог написать код, но он выдает наименьшее число, а не наименьшее больше 10:

Private Sub Command1_Click()
Dim i, x, b(), M As Integer
M = InputBox("Из скольки чисел ваша последовательность?", "Сколько чисел будем вводить?", 20)
ReDim b(1 To M)
For i = 1 To M
b(i) = Int(InputBox("", "Введите число"))
Print b(i);
Next i
x = b(1)
For i = 1 To M
 If x > b(i) Then
  x = b(i)
 End If
Next i
MsgBox "Наименьшее из введеных чисел  " & x
End Sub

Изменение на If x > b(i) And b(i) > 10 Then в условии не помогает..
Помогите исправить и скажите как найти порядковый номер того же числа %)

[was3110]

Вместо

x = b(1)
For i = 1 To M
If x > b(i) Then
x = b(i)
End If
Next i

x = 10000'заведомо большее
For i = 1 To M
 If x > b(i) Аnd b(i)>10 Then
  x = b(i)
 End If
Next i

[Raikerian]

Спасибо огромное, а порядковый номер как определить этого числа?