sub test2 dim as double for to next end sub

1
2
3
4
5
sub test2()
dim a as double
for a=0 to 2
next a
end sub