[john_revelator]

Pare che così funzioni. Comunque se avete consigli da darmi, visto che sono agli inizi, son sempre ben accetti.

Private Sub Comando0_Click()
Dim valori As Variant
Dim minori() As Variant
valori = Array(5, 10, 11, 13, 6, 9, 12, 18)
'X = 0
For i = LBound(valori) To UBound(valori)
    If (valori(i) < 10) Then
    ReDim Preserve minori(X)
    minori(X) = valori(i)
    X = X + 1
    End If
Next i

For i = LBound(minori) To UBound(minori)
MsgBox (minori(i))
Next i
End Sub