Найти наименьшее из всех чисел, больших 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

Private Sub Command1_Click()
Dim i, j, x, b(), M As Integer
M = InputBox("Из скольки чисел ваша последовательность?", "Сколько чисел будем вводить?", 20)
ReDim b(1 To M)
Cls
 
 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)
Next i
 
For i = 1 To M
 If b(i) > 10 And x >= b(i) Then
  x = b(i)
  j = i
 End If
Next i
 
If x > 10 Then
   MsgBox "Наименьшее из введеных чисел больших десяти : B (" & j & ") = " & x
Else
   MsgBox "Все введенные значения меньше десяти "
End If
 
End Sub

Dim x, y, z As Single
x = Val(InputBox("Введите значение x"))
y = Val(InputBox("Введите значение y"))
z = Val(InputBox("Введите значение z"))
If x = Min Then x = 0
If y = Min Then y = 0
If z = Min Then z = 0
MsgBox Min, , " Значение min = "

Private Sub Command1_Click()
Dim x, y, z, min As Single
x = Val(InputBox("Введите значение x", , 1))
y = Val(InputBox("Введите значение y", , 2))
z = Val(InputBox("Введите значение z", , 3))
min = x
If y < min Then min = y
If z < min Then min = z
Select Case min
 Case Is = x: x = 0
 Case Is = y: y = 0
 Case Is = z: z = 0
End Select
MsgBox x & "   " & y & "   " & z, , " Значения  x y z"
End Sub