Prueba este:
Private Sub Form_Click()
Dim x, y, z
x = InputBox("")
y = InputBox("")
z = InputBox("")
If x > y Then
If x > z Then
If y > z Then
Print x, y, z
Else
Print x, z, y
End If
Else
If z > y Then Print z, x, y
End If
Else
If y > z Then
If z > x Then
Print y, z, x
Else
Print y, x, z
End If
Else
Print z, y, x
End If
End If
End Sub