Help with Vb programming code please :)

[Sosoover09]

Is this how you do a nested do while loop, because it not working the way i want it too, one the user interface Hotel 2 should appear under Hotel 1. The asterisk is supposed to increase by 1 to whichever number i put in the inputbox and it not doing so.

 Dim intNumber As Integer

        intNumber = Val(InputBox("Hotel Rating"))



        intNumber = 1
        Do While intNumber <= 6
            intNumber = intNumber + 1
            lblStars.Text = "Hotel&1" & "*"
            Me.Refresh()
        Loop
        Do While intNumber <= 6
            intNumber = intNumber + 1
            lblStars.Text = "Hotel&2" & "*" & ControlChars.NewLine
            Me.Refresh()
        Loop
      




    End Sub
End Class