Mr.Tです、こんにちは。
ネタ元1：負けるもんか
ネタ元2：ソートが熱いらしいので
ソートは実は苦手なのです。
だからVBに毒されたの脳みそだと、こんなことを考えてみたりします。ﾌﾊﾊﾊ
前提条件がちと、狭いのが玉に瑕。
Sub Main()
'与えられるソート対象値は、正の整数でなおかつ、ダブリがないことが前提
'あんまり大きい数値も不可にしたい、あ、あと、0は配列初期値だから、0の値はソート対象にはならねえ
'でもって、「ソート」なんかしない。
Dim 対象配列() As Decimal = New Decimal() {100, 15, 20, 999, 1024, 1, 5}
Dim 出力配列() As Decimal = New Decimal() {}
For Each sItem As Decimal In 対象配列
If UBound(出力配列) < sItem Then
ReDim Preserve 出力配列(sItem)
End If
出力配列(sItem) = sItem
Next
For Each sItem As Decimal In 出力配列
If sItem > 0 Then
Console.WriteLine(sItem)
End If
Next
End Sub