Sub Main() Dim x,y,z For x = 1 to 5 For y = 1 to 5 For z = 1 to 5 Print "Looping" ,z,y,x Next z Next y Stop Next x End Sub