Образовать новую последовательность, выбросив из исходной те члены, которые равны min {a1, a2, ..., аn} - VB

Option Explicit
 
Private Function prim$()
    Const c = 10
    Dim j$(), f&, l&
 
    '-----------------------------------------------Создаём последовательность
    Randomize Timer
    For f = 0 To c - 1
        prim = prim & " " & Fix(100 + Rnd * 100)
    Next
    j = Split(Mid$(prim, 2))
    l = 2 ^ 31 - 1
    For f = 0 To UBound(j)
        If j(f) < l Then l = j(f)
    Next
    '----------------------------------------------Выбрасываем все минимальные значения
    prim = "Вся последовательность Array = {" & Join(j, ",") & "}" & vbCrLf
    j = Filter(j, l, False)
    prim = prim & "Выбразываем все Min = {" & l & "}" & vbCrLf
    prim = prim & "Последовательность без min Array = {" & Join(j, ",") & "}" & vbCrLf
    
End Function
 
Private Sub Form_Load()
    MsgBox prim
    End
End Sub