nombre décimal / entier VBA Excel

bonjour !
je voudrais programmer la fonction suivante sur xl :

if ((Reglages.spina.value)/4) "est un nombre entier" then
b=1
Else b=0
Endif

le problème est que je ne sais pas comment l'écrire en VBA ni quelle(s) Dim je dois avoir prévu au départ de mon module.
Quelqu'un peut-il me conseiller ?
Merci par avance de votre aide !

@pluche!! :D

Avant de penser à autre chose... ;)

Code:

---

1 2 3 4 5

if Reglages.spina.value/4 - Int(Reglages.spina.value/4) = 0 Then 'c'est un nombre entier b=1 Else b=0 Endif

---

c'est impeccable : c'est ce que je cherchais ! je ne connaissais pas cette fonction pour extraire la partie entière d'un nombre.
merci beaucoup !
@ trés bientôt !
:yaisse2:

Une autre solution sans Int

Code:

---

if Reglages.spina.value/4 - Reglages.spina.value\4 = 0 then

---