急求一道简单的VB排序题SOS

怎么呢,
我给个吧

Sub aa()
a = CInt(InputBox("输入整数:"))
b = CInt(InputBox("输入整数:"))
c = CInt(InputBox("输入整数:"))
'用if麻烦,用冒泡法
Dim n(3), m
n(0) = a
n(1) = b
n(2) = c

For i = 0 To 2
For j = i + 1 To 2
If n(j) < n(i) Then m = n(i): n(i) = n(j): n(j) = m '交换
Next
Next

MsgBox "小-->大:" + CStr(n(0)) + ":" + CStr(n(1)) + ":" + CStr(n(2))
End Sub

a = CInt(InputBox("输入整数:"))
b = CInt(InputBox("输入整数:"))
c = CInt(InputBox("输入整数:"))

If A>B Then
If B>C Then
Print C,B,A
Else
If A>C Then
Print B,C,A
Else
Print B,A,C
End If
End IF
Else
If B<C Then
Print A,B,C
Else
If A<C Then
Print A,C,B
Else
Print C,A,B
End If
En