Dim i
i = 1
Do
 MsgBox "i is nu " & i
 i = i + 1
Loop Until i = 10