大神们进来一下谢谢了 三位数排列顺序

方法错了：
Private Sub Form_Click()
Dim a#, b#, c#, d#， cTS$
a = Val(InputBox(请输入 a = ))
b = Val(InputBox(请输入 b = ))
c = Val(InputBox(请输入 c = ))
cTS = "没有排序的数是：" & Str(a) & "，"
cTS = cTS & Str(b) & "，" & Str(c)
Print cTS
If a > b Then d = a : a = b : b = d
If a > c Then d = a : a = c : c = d
If b > c Then d = b : b = c : c = d
cTS = "升序排列的数是：" & Str(a) & "，"
cTS = cTS & Str(b) & "，" & Str(c)
Print cTS
End Sub