How to draw the prime number flow between 1 and 100?

Sub Main()？ begin

i = 2

do

j = 2

Until i mod j = 0 or j * j> me.

j = j + 1

ring

If j * j> I then

MsgBox i, vbInformation, "output"

If ... it will be over.

If not (I< 100), then quit Do.

i = i + 1

ring

End Sub? end