do while loop in vb6.0

Dim x as integer
do while x<5
Print  "hello"
X=x+1
Loop

Dim index As Integer = 0
Do
    Debug.Write(index.ToString & " ")
    index += 1
Loop Until index > 10