Static array(1 To 50)

For a = 1 To 50
array(a) = (Rnd * 100) + 1
Next a

        arraysize = 50

        For i = (arraysize - 1) To 1 Step -1
             For t = 1 To i
                If array(t) < array(t + 1) Then
                             Temp = array(t)
                             array(t) = array(t + 1)
                             array(t + 1) = Temp
                        End If
             Next t
        Next i