Dim a 

a=1

Do while a=1

Loop