делать, пока не vb.net
Dim y As Integer = 1
'Do the action while the condition is not true
'add 1 to y while y is not equal to 10
Do While Not y = 10
MsgBox("Y value = " & y)
y += 1
Loop
Helpful Hawk