n = 15108097
T = n Mod 100
ReC = 1 / n
ImC = 1 / T
x = ReC
y = ImC
m = 99
For j = 1 To m
    Me.DrawWidth = 9
    PSet (x, y), vbRed
    x = (x ^ 2 + y ^ 2) * Cos(Atn(2 * y / x)) + ReC
    y = (x ^ 2 + y ^ 2) * Sin(Atn(2 * y / x)) + ImC
    Next j
' https://www.wolframalpha.com/input/?i=Julia+set+0.1%2B0.05i