Bonjour, j'aimerais écrire une fonction en VBA qui me permet de compter un entié

Bonjour,

J'aimerais écrire une fonction en VBA qui me permet de compter le nombre d'entier inférieures ou égal à n comportant au moins une fois le chiffre donné b.

Dim b As Byte
Dim n As Integer
Dim Nbre As Byte
'Dim Sum As Integer

Dim U As Integer
Dim R As Byte

Dim Cpt As Byte

b = 3
n = 31

For Cpt = 0 To n

U = Cpt
While U > 0
R = U Mod 10
If R = b Then
Nbre = Nbre + 1
End If
U = U \ 10

Wend

Next
MsgBox Nbre

J'ai cette fonction mais elle ne m'envoie pas e résultat attendue.