Un desafío para los interesados

Dim num As Long, j As Long
num = 389438
For j = 0 To 10
    If num = 0 Then Exit For
    Debug.Print num Mod 10
    num = num \ 10
    j = 0
Next