Option Explicit
Option Base 0
 
Dim bMatrix(4, 4)   As Byte
 
Public Sub FillAndSortMatrix()
    Dim bvTmp(24)   As Byte
    Dim i           As Long
 
    Call bURGN(bvTmp)
    Call GnomeSort(bvTmp)
    For i = 0 To 24
        bMatrix((i \ 5), (i Mod 5)) = bvTmp(i)
    Next i
End Sub
 
Public Sub bURGN(ByRef bvArray() As Byte)
    Dim x           As Integer
    Dim n           As Integer
    Dim colNumbers  As New Collection
    Dim Max         As Long
 
    Max = 30
 
    With colNumbers
        For x = 1 To Max
            .Add x
        Next x
        For x = 0 To UBound(bvArray)
            Call Randomize(Timer * (Timer \ 3))
            n = Int((Max - 1) * Rnd) + 1
            bvArray(x) = colNumbers(n)
            colNumbers.Remove (n)
            Max = Max - 1
        Next x
    End With
    Set colNumbers = Nothing
End Sub
 
Public Sub GnomeSort(ByRef bvArray() As Byte)
    On Error Resume Next
    Dim lPos        As Long
    Dim lUbound     As Long
 
    lUbound = UBound(bvArray) + 1
    While lPos < lUbound
        If (lPos = 0) Or (bvArray(lPos) >= bvArray(lPos - 1)) Then
            lPos = lPos + 1
        Else
            bvArray(lPos) = bvArray(lPos) Xor bvArray(lPos - 1)
            bvArray(lPos - 1) = bvArray(lPos - 1) Xor bvArray(lPos)
            bvArray(lPos) = bvArray(lPos) Xor bvArray(lPos - 1)
            lPos = lPos - 1
        End If
    Wend
End Sub
 
Sub Main()
    Dim i           As Long
    Dim w           As Long
 
    Call FillAndSortMatrix
    For i = 0 To 4
        For w = 0 To 4
            If (w = i) Or (4 - i = w) Then
                Debug.Print bMatrix(i, w),
            Else
                Debug.Print vbNullString,
            End If
        Next w
        Debug.Print ""
    Next i
End Sub