That will will show the answer rather than the amount of times x divides into y.
If I understand you correctly, this should do it:
Dim a As Double
a = Floor(Logarithm(x,y))
With this, if x = 15 and y = 2 then a = 3.
And Mahares example - x = 71 and y = 17 then a = 1.