Private Sub Form_Load()
n = 100
b = 7
d1 = n Mod b ^ 1
MsgBox d1
d2 = (n Mod b ^ 2 - d1) / b ^ 1
MsgBox d2
d3 = (n Mod b ^ 3 - b ^ 1 * d2 - d1) / b ^ 2
MsgBox d3
d4 = (n Mod b ^ 4 - b ^ 2 * d3 - b ^ 1 * d2 - d1) / b ^ 3
MsgBox d4
d5 = (n Mod b ^ 5 - b ^ 3 * d4 - b ^ 2 * d3 - b ^ 1 * d2 - d1) / b ^ 4
MsgBox d5
d6 = (n Mod b ^ 6 - b ^ 4 * d5 - b ^ 3 * d4 - b ^ 2 * d3 - b ^ 1 * d2 - d1) / b ^ 5
MsgBox d6
d7 = (n Mod b ^ 7 - b ^ 5 * d6 - b ^ 4 * d5 - b ^ 3 * d4 - b ^ 2 * d3 - b ^ 1 * d2 - d1) / b ^ 6
MsgBox d7
'd8 = (n Mod b ^ 8 - b ^ 6 * d7 - b ^ 5 * d6 - b ^ 4 * d5 - b ^ 3 * d4 - b ^ 2 * d3 - b ^ 1 * d2 - d1) / b ^ 7
'MsgBox d8
'd9 = (n Mod b ^ 9 - b ^ 7 * d8 - b ^ 6 * d7 - b ^ 5 * d6 - b ^ 4 * d5 - b ^ 3 * d4 - b ^ 2 * d3 - b ^ 1 * d2 - d1) / b ^ 8
'MsgBox d9
'd10 = (n Mod b ^ 10 - b ^ 8 * d9 - b ^ 7 * d8 - b ^ 6 * d7 - b ^ 5 * d6 - b ^ 4 * d5 - b ^ 3 * d4 - b ^ 2 * d3 - b ^ 1 * d2 - d1) / b ^ 9
'MsgBox d10
End Sub