Program MEnukar angka yang lbh besar ke kecil

Asslammualaikum wr.wb..
saya ingin meng update tntang program yang saya buat tntang penukaran angka besar ke kcil

skrip.a nie...

Dim x As Integer
Dim y As Integer

Private Sub Command1_Click()
x = InputBox("masukan data yang anda inginkan ")
y = InputBox("masukan  data yang anda inginkan ")
If x > y Then
Print x
Print y
Call tukar(x, y)
Print " setelah di tukar"
End If
    Print x
    Print y
   
End Sub
Sub tukar(a, b)
temp = a
a = b
b = temp
End Sub


Private Sub Command2_Click()
End
End Sub

jika mnalami kesulitan koment ajh yh,,mngkin saya bsa membantu