Выбрать в массиве А два наиболее близких по значению элемента - VB

Option Explicit
DefStr J, S: DefLng F, M-N, U
'
'   © JoraVoenyjHaker
'
Public Sub example()
    Const p = " ", n = 30, p1 = "=", p2 = vbNewLine
    Dim j(), j1(), s, s1, f, min, max, ubn
    
    Randomize Timer
    For f = 1 To n
        s = s & p & Fix(Rnd * n)
    Next
    j = Split(Mid(s, 2))
    '--------------------------------------------------
    min = n: ubn = UBound(j)
    For f = 0 To ubn
        If j(f) < min Then min = j(f)
        If j(f) > max Then max = j(f)
        j1 = Filter(j, j(f))
        If UBound(j1) = 1 Then
            If InStr(1, s1, j(f)) = 0 Then
                s1 = s1 & p & j(f)
            End If
        End If
    Next
    
    
    MsgBox "min" & p1 & min & p2 & _
    "max" & p1 & max & p2 & _
    "Два одинаковых значения в списке" & p1 & s1 & p2 & _
    "Случайный список:" & p2 & Join(j, p2)
    
 
End Sub
 
Sub main()
    example
End Sub