01/06/19 16:06
Sub HelloWorld()
Dim a As Variant
Dim p As Long
Dim i As Integer
Dim n As Integer
p = 1625176704
n = 112
a = Array(0, 2, 5, 8, 11, 15, 16, 8)
While p > 0
p = Int(p / 8)
n = n + a(p Mod 8) - 8
Debug.Print Chr(n + (((n - 104) Mod 15) = 0) * 32 + ((p Mod 8) = 7) * 79);
Wend
End Sub