Среди элементов массива выбрать все меньшие числа 53

Private Sub CommandButton1_Click()
Dim Chislo(9) As Long
For i = 0 To 10
MsgBox Chislo(i)
Next
End Sub

Private Sub Command1_Click( )
Dim A (1 To 30) As Single
Dim Max, Min, S, P As Single
Dim J, N, M, K As Byte
N = InputBox ("сколько элементов в массиве?")
S=0 : P = 1 : K = 0
MsgBox " введите значения элементов A: "
FOR J = 1 TO N
A(J) = InputBox ("введите очередной элемент")
NEXT J
MsgBox " Определим максимум и минимум "
Max = A(1) : Min = A(1)
FOR J = 1 TO N
IF A( J) > = MAX THEN MAX= A(J)
IF A(J) < = MIN THEN MIN= A(J)
Next J
MsgBox " максимум = " & max & "минимум = " & min
MsgBox " Определим количество ненулевых элементов "
FOR J = 1 TO N
IF A( J) > 0 THEN K= K+1
Next J
MsgBox " Количество ненулевых элементов = " & K
MsgBox " Определим элементы, кратные семи: "
FOR J = 1 TO N
IF A(J)/7 THEN MsgBox "A(J)= " & A(J)
Next J
END Sub

Option Explicit
Private Sub Command1_Click()
Dim i As Integer, r As Integer
Randomize (Timer)
'For i = 1 To 20
For i = 1 To 7
r = Int(Rnd * 100)
'Text1.Text = Text1 & i & " ) " & Str(r) & vbCrLf
Text1.Text = Text1 & Str(r) & vbCrLf
'MsgBox (Str(r))
Next i
End Sub
 
'Как случайный вариант: 9 75 73 33 60 49 92