>>623
お前のコードだって両方とも動いてないぞ。実行してみたか？

コード（最適解ではない）
SUB SORT(a)
For i = 0 To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(j) < a(i) Then
temp = a(j)
a(j) = a(i)
a(i) = temp
End If
Next
Next
END SUB

俺もVBSに関しては桃白白よりまし程度のものだから、それほどうまく書けていないが。

>>624
誰もバブルソートが最速とは言ってないぞ。早くなる場合があるといっただけで、それよりもっと早いアルゴリズムがある。だから採用はされてない。
Wikipediaにもあるが、クイックソートも途中でバブルソートの改良版、挿入ソートに切り替えたほうがはやかったりする
http://ja.wikipedia.org/wiki/%E3%82%AF%E3%82%A4%E3%83%83%E3%82%AF%E3%82%BD%E3%83%BC%E3%83%88