Fonction VBA

Bonjour,

je suis débutante en VBA ,j'ai des fonctions mais j'arrive pas de trouver la solution correcte,
par exemple avec cette fonction est ce qu'elle retourne flase seleument

Private Function XXX(by val chiffre as long)as Boolean
If chiffre <4 or chiffre =5 or chiffre =7 then
XXX=true
Exit Function
End IF
If chiffre<=7 or chiffre mod 2=0
Or chiffre mod 3=0 then
XXX=false
Exit function
End if
Dim i as long, j as long, r as long,r2 as long
r =1 : r2=1
do while(i*i <= chiffre and r*r2 >0)
j=j+1
i=6* j -1 : r =chiffre mod i
if r=0 or r2= 0 then
if r=0 or i=i-2 then
XXX=flase
END IF
Else
XXX=true
End if loop
End function

Je suis confus
aide moi STP

merci d'avance