while loop in vb.net

Dim x As Integer = 1
'Do the action while the condition is true

'add 1 to x while x is less than 10
Do While x < 10
	MsgBox("X value = " & x)
	x += 1
Loop