Calculer sous vbs ?

Bonjour, je suis en train de coder un logiciel pour calculer le PGCD de deux nombres et j'en suis la :

x = Inputbox("Tapez le premier nombre")
y = inputbox("Tapez le deuxième nombre")
if x = y then
msgbox("Le PGCD de ces deux nombres est " &x)
elseif x > y then
x-y=z
if x = y then
msgbox("Le PGCD de ces deux nombres est " &x)
elseif y > x then
y-x=z
end if
if x=y then
msgbox("Le PGCD de ces deux nombres est " &z)
end if
end if

Mais lorsque je lance mon programme, je rentre bien les deux nombres et si ils ne sont pas égaux, j'ai un message d'erreur :

Ligne : 6
Caractère : 1
Erreur : Type incompatible : "x"

Je n'arrive plus a avancer... quelqu'un pourrait il m'aider ??
Merci.