Someone

Function BubbleSort (ByVal arr)
	Dim i, l, tmp
	i = 0: l = UBound(arr)
	While i < l
		If arr(i) > arr(i+1) Then
			tmp = arr(i)
			arr(i) = arr(i+1)
			arr(i+1) = tmp
			i = i - 1
		Else
			i = i + 1
		End If
		If i < 0 Then i = 0
	Wend
	BubbleSort = arr
End Function