输入3个不同整数,将他们从大到小排序?

Private Sub Form_Click()
Dim a, b, c, d As Integer
a = Val(InputBox("请输入第一个数字"))
b = Val(InputBox("请输入第二个数字"))
c = Val(InputBox("请输入第三个数字"))
Print a
Print b
Print c
If a > b Then
d = b
b = a
a = d
End If
If a > c Then
d = c
c = b
b = a
a = d
ElseIf b > c Then
d = c
c = b
b = d
End If
Print a
Print b
Print c
End Sub